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ABSTRACT 


The  Administrative  Sciences  Department  (AS  DEPT)  of  NPS  maintains  a 
considerable  amount  of  computing  and  office  equipment  (property)  to  support  its 
Students,  Staff,  Office,  and  Management  Personnel.  This  thesis  provides  a  relational 
database  application  -  The  Property  Management  System  (PMS)  to  support  the 
management  and  accountability  of  the  AS  DEPT  property.  The  systems  analysis  and 
design  methodology  of  a  relational  database  is  outlined.  The  implementation  is 
undertaken  on  a  microcomputer  using  dBase  III  plus.  A  data  dictionary,  program 
listings,  and  User's  Manual  are  included. 
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I.  INTRODUCTION 


A.  BACKGROUND 

A  structured  analysis  was  conducted  in  1984  to  determine  the  computing  needs  of 
the  Administrative  Sciences  Department  (AS  DEPT)  of  the  Naval  Postgraduate  School 
(XPS).  This  analysis  defined  three  different  sub-systems: 

1.  Financial 

2.  Personnel 

3.  Property 

to  keep  track  of  all  information  pertaining  to  the  management  and  control  of 
departmental  activities.  A  prototype  system  was  developed  and  implemented  in  1986 
in  part  as  a  feasibility  study,  implementing  some  of  the  features  of  each  subsystem 
outlined  in  the  previous  analysis.  The  prototype  proved  the  system  feasible  by 
showing  that  many  of  the  manual  procedures  could  automated.  [Ref.  1,2) 

However,  various  factors  lead  to  the  decline  of  use,  and  ultimate  abandonment  of 
the  prototype.  The  limited  amount  of  information  provided  in  any  of  the  three  sub¬ 
systems  was  the  major  complaint.  This  motivated  the  AS  DEPT  to  select  the  Property 
sub-system  for  full  development. 

The  term  "property"  used  in  this  thesis  does  not  connote  the  meaning  of  real 
estate.  Throughout  this  thesis  the  term  "property"  will  be  used  to  refer  to  equipment 
and  accessories  for  which  the  AS  DEPT  desires  to  maintain  accountability.  The  AS 
DEPT  maintains  a  considerable  amount  of  office  and  computing  equipment  to 
support  department  office  personnel,  teaching  staff,  and  students.  This  property  is 
either  assigned  to,  or  made  available  for  use  both  on  and  off  campus.  Faced  with  a 
small  office  staff,  and  a  high  turnover  rate,  property  accounting  never  received  the 
attention  desired  by  management. 

B.  PURPOSE 

This  thesis  has  two  main  objectives: 

1.  Design,  develop,  and  implement  a  database  application  -  the  Property- 
Management  System  (PMS),  to  improve  the  property  accountability  for  the 
Administrative  Science  Department  of  the  Naval  Postgraduate  School. 

2.  Outline  the  database  development  process  using  this  application  as  an  example. 


The  first  objective  of  this  thesis  should  assist  the  AS  DEPT  in  managing 
department  resources,  provide  better  services,  as  well  as  furnish  the  administrative 
accounting  requirements  established  by  the  Naval  Postgraduate  School  for  certain 
classifications  of  property.  By  centrally  automating  the  property  accounting  Junction, 
timely  information  can  be  provided  quickly  and  accurately.  Therefore  this  will  assist  in 
planning  both  service  support  and  property  acquisition. 

Database  system  development  is  similar  to  other  type  business  applications,  but 
can  be  more  complicated  due  to  the  amount  of  data  stored,  and  the  degree  of  sharing 
involved.  This  thesis  uses  the  generally  accepted  methodology  known  as  systems 
analysis  and  design  (SAD)  to  accomplish  the  database  development.  SAD  is  a  six  step 
methodical  and  iterative  process  as  the  system  moves  from  concept  to  implementation. 
These  six  steps  or  stages  make  up  the  system  life  cycle.  The  steps  are: 

1 .  problem  definition 

2.  feasibility  study 

3.  analysis 

4.  design 

5.  implementation 

6.  maintenance 

To  achieve  the  second  objective  of  this  thesis,  the  focus  will  be  on  the  system 
design,  and  implementation  steps  of  the  life  cycle.  The  previous  life  cycle  steps  were  in 
essence  performed  in  the  earlier  structured  analysis  and  system  prototype.  However, 
the  process  of  designing  the  Property  Management  System  required  the  verification  and 
update  of  prior  works  to  correct  identified  inadequacies.  The  purpose  in  outlining  the 
design,  and  implementation  is  to  assist  in  the  system  maintenance,  by  providing  the 
rationale  behind  these  key  decisions. 

C.  CHAPTER  DESCRIPTION 

Chapter  II  reviews  database  development  activities  which  provides  the  framework 
for  the  PMS  development.  Design  and  implementation  concerns  related  to  the  PMS 
application  will  be  presented  using  this  framework  as  an  outline. 

Chapter  III  discusses  usability  and  expandability  issues.  Usability  pertains  to 
prevalent  system  operation  supported  by  the  PMS  application.  Capabilities  beyond 
standard  data  requests  are  addressed  for  qualified  dBase  III  plus  programmers.  Finally 
the  chapter  presents  the  author's  opinions  on  the  PMS  expandability. 


The  appendices  provide  useful  documentation  for  maintenance  and  system 
operation.  In  Appendix  A,  the  data  dictionary  includes  descriptions  of  files  and  data 
elements.  Appendix  B  contains  the  program  listings  of  the  installed  system.  The  user's 
manual  is  reproduced  in  Appendix  C.  It  serves  as  a  reference  for  the  user  providing 
direction  and  operation  guidance. 


II.  PMS  SYSTEMS  ANALYSIS  AND  DESIGN 


A.  METHODOLOGY 

1.  Analysis 

As  stated  in  the  previous  chapter  the  development  of  the  Property 
Management  System  began  with  the  analysis  stage  of  the  system  analysis  and  design 
life  cycle.  The  focus  of  analysis  is  logical,  concentrating  on  what  needs  to  be  done,  not 
how.  During  analysis  goals  and  constraints  are  identified  for  the  user's  approval. 
Yourdon,  a  major  proponent  of  Structured  Analysis  techniques  calls  this  package 
specification  [Ref.  3:  p.  51). 

As  the  system  moves  toward  development  it  is  imperative  for  the  analyst  to 
functionally  understand  the  system  to  be  developed.  A  set  of  tools  are  available  to 
assist  in  analysis.  Two  such  tools  are  the  Data  Flow  Diagram  (DFD)  and,  the  Data 
Dictionary. 

The  DFD  is  the  primary'  means  for  the  analyst  to  communicate  this 
understanding  to  the  user.  A  DFD  is  an  idealized  model  of  the  proposed  system 
ignoring  implementation  details.  It  is  used  to  describe  graphically  the  contents  and 
behavior  of  the  system.  A  DFD  reflects  the  system  functions  that  must  be  performed, 
identifying  the  data,  data  flows,  data  stores,  and  processes  involved  in  transforming  the 
data.  Additionally,  a  DFD  outlines  the  system  boundaries  by  identifying  the  sources 
and  destinations  of  data. 

The  data  dictionary  is  used  for  supporting  documentation.  A  data  dictionary 
is  a  collection  of  data  about  the  data.  Data  elements  are  defined  and  described, 
sources  and  use  are  also  identified. 

The  final  output  of  analysis  is  a  physical  constraints  document.  User 
requirements  not  involved  with  the  logical  model  of  the  system  that  limit  design  are 
outlined.  This  is  a  text  of  specifications  that  are  physical  in  nature.  Examples  are 
hardware  selection,  interactive  processing  or  specified  response  times. 

2.  Design 

The  next  stage  of  development  is  system  design.  Database  design  is  a  two 
step  process.  The  first  step  is  logical  database  design  and  involves  building  a  logical 


data  structure  called  a  schema,  conceptual  schema,  .or  logical  schema.  The  next  step 
entails  translating  the  logical  schema  into  a  physical  design.  Physical  design  is 
dependent  upon  the  particular  database  management  system  (DBMS)  used  for 
implementation.  [Ref.  4] 

Relations,  tuples,  and  attributes  are  the  elements  of  a  relational  database. 
Relations  correspond  to  files,  tuples  to  records,  and  attributes  to  data  elements 
respectively.  The  contents  of  a  tuple  are  a  fixed  number  of  attributes,  the  set  of 
possible  values  of  an  attribute  comprise  the  domain  for  that  attribute.  The  DFD  and 
data  dictionary'  are  excellent  sources  for  these  values. 

A  database  logical  structure  is  an  overview  of  the  data.  It  consists  of 
determining  the  relations  and  the  relationships  between  them.  The  approach  to  logical 
design  involves  aggregating  and  classifying  data  according  to  different  user's  views 
(meanings)  of  the  data.  Data  is  consolidated  to  represent  the  relations  according  to 
these  user  perceptions.  A  data  structure  diagram  is  one  method  to  represent  a  logical 
structure.  Like  a  DFD  it  is  a  graphic  representation  and  used  to  model  the  database. 
This  diagram  illustrates  the  associations  between  relations.  Four  relationships  are 
possible:  none,  one-to-one,  one-to-many,  and  many-to-many. 

A  relation  has  certain  identifiable  properties.  A  relation  is  a  flat  file,  each  row 
(tuple)  has  a  fixed  number  of  fields  (attributes).  All  tuples  are  unique  with  no 
duplicates  allowed.  A  key  uniquely  identifies  a  tuple.  The  key  may  be  a  single 
attribute  or  a  set  of  attributes.  It  is  possible  to  have  more  than  one  key,  and  a  primary 
key  must  be  chosen.  Alternate  keys  are  referred  to  as  candidate  keys.  Every  relation 
has  a  key,  since  in  the  worst  case  a  combination  of  all  the  attributes  could  be  the  key. 

Relational  database  theory  has  outlined  some  important  considerations  in 
developing  alternative  logical  schema.  To  eliminate  inconsistencies  within  the 
database,  redundancy  needs  to  be  minimized.  Anomalies  are  consistency  problems  that 
arise  due  to  data  redundancy  and  are  resultant  of  operations  on  the  relations  such  as 
update,  insertion,  and  deletion  of  attributes  or  tuples.  To  reduce  these  problems,  larger 
relations  are  decomposed  or  projected  into  smaller  relations.  The  projection  is  done 
vertically,  selecting  a  common  attribute  between  the  two  relations.  If  necessary  the 
information  can  be  recreated  by  joining  the  two  smaller  relations.  Schema  design  is  the 
essence  of  normalization  outlined  in  relational  database  theory.  [Ref.  5] 
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The  second  stage  of  database  design  involves  transforming  the  logical  schema 
into  physical  data  constructs  and  designing  the  program  modules  necessary  to 
manipulate  the  data.  Two  languages  specific  to  a  DBMS  are  provided  for  these 
purposes.  Data  constructs  are  declared  using  the  Data  Definition  Language  (DDL). 
This  process  requires  specifying  field,  record,  and  file  formats,  and  their  constraints. 
Programs  are  created  using  the  Data  Manipulation  Language  (DML).  Program 
modules  are  designed  to  manipulate  the  database  to  furnish  desired  outputs  as  well  as 
providing  the  means  to  store  the  data.  A  hierarchy  diagram  is  one  method  used  to 
depict  the  structure  of  the  program  relationships. 

B.  PROPERTY  MANAGEMENT  SYSTEM  DEVELOPMENT 
1.  Analysis 

To  begin  designing  the  Property  Management  System  interviews  were 
conducted  with  the  principal  users  to  identify  their  needs  and  desires  to  provide  the 
accountability  of  departmental  property.  The  department  at  present  has  no  established 
procedures  and  no  one  single  individual  assigned  to  maintain  property.  This  makes  it 
necessary  to  interview  most  of  the  AS  department  office  personnel. 

A  number  of  interviews  were  conducted  with  the  NPS  property  manager  to 
identify  items  missed  during  the  users  interviews.  It  was  a  stated  requirement  of  the 
AS  department  Chairman  to  maintain  accountability  within  the  schools  guidelines. 
Upon  completion  of  the  interviews  with  the  NPS  property  manager  it  was  concluded 
that  the  transactions  and  data  elements  requested  by  the  AS  office  personnel  would 
provide  the  necessary  information  to  maintain  the  accountability  established  by  the 
NPS  property  manager. 

The  school  requires  that  a  DD1342  paper  document  be  kept  up  to  date  and 
on  file  with  the  property  manager  for  all  plant  property.  A  new  classification  -  minor 
property,  will  have  similar  accountability  requirements.  Since  at  this  time  the 
requirements  had  not  been  established  for  minor  property,  the  new  system  will  provide 
the  same  accountability  as  plant  property  for  all  department  property.  This  should 
meet  the  schools  policy,  once  established,  requiring  minor  changes  if  any.  With  the 
data  elements  identified  it  will  be  possible  to  identify  and  locate  all  AS  department 
plant  property  and  provide  the  information  necessary  to  keep  the  DD1342  accurate. 

The  following  physical  constraints  and  requirements  wrere  compiled  from  the 
interviews: 


1.  The  proposed  system  will  be  implemented  -on  an  IBM  XT  microcomputer, 
which  the  AS  DEPT  already  owns.  The  existing  daisy  wheel  printer  is  also  to 
be  utilized.  The  micro  has  two  10  MB  hard  disk  drives,  all  of  which  may  be 
utilized. 

2.  The  proposed  system  will  be  on-line  thereby  allowing  entries,  deletions,  and 
modifications  as  transactions  occur. 

3.  The  proposed  system  will  be  written  with  dBase  III  Plus  which  is  much  more 
familiar  to  department  personnel  and  has  a  much  greater  chance  of  being 
maintained.  The  new  system  will  be  both  interactive  and  menu-driven.  It  will 
also  require  minimal  training  for  the  user,  given  they  are  in  possession  of  a 
general  familiarity  with  the  operation  of  microcomputers.  A  comprehensive 
user's  manual  will  be  provided  to  assist  in  training. 

4.  The  new  DBMS  will  provide  the  ability  to  answer  ad-hoc  queries  concerning  all 
necessary'  inventory  information  of  the  accountable  property  of  the  AS 
department.  The  data  is  to  include  a  physical  item  description,  the  actual 
physical  location  of  the  item,  the  individual  charged  with  the  custody  of  the 
item,  how  the  item  is  configured,  and  financial  accounting  information  (price 
and  requisition  number).  Queries  will  be  provided  to  answer  questions  (singly 
or  categorically)  about  items,  custodians,  property  types  and  numbers,  or 
locations  of  all  the  department  property  inventory.  The  new  DBMS  will  also 
provide  summary  and  report  data  for  a  quarterly  department  inventory  report. 

Basic  transactions  and  data  elements  were  extracted  and  identified  from  the 
interviews.  A  preliminary  data  dictionary  and  a  data  flow  diagram  were  presented  to 
the  department  supervisor  along  with  the  above  requirements.  The  data  elements  were 
intentionally  left  from  the  DFD,  see  Figure  2.1.  The  DFD  was  used  at  this  point  to 
verify  the  system  boundaries  and  basic  transactions.  This  proved  a  useful  method  in 
extracting  the  user  views,  beginning  the  design  process. 

2.  Logical  Design 

Users  views  were  compiled  and  used  to  create  the  relations  (files)  necessary  to 
maintain  the  information  requested.  The  data  elements  identified  were  assembled  from 
the  user  interviews  and  the  DD1342  document.  The  user  views  match  the  data  stores 
depicted  in  the  Data  Flow  Diagram.  The  user  views  are  listed  as  follows: 

1.  Components  (aliases:  Property,  Inventory  ) 

2.  Owners  (alias:  Custodians) 

3.  Parts 

4.  History  (alias:  Deleted  property) 

5.  Homes 


a.-  ♦. 


a.  User  View  No:  I 

User  View  Name:  Components  (aliases:  Property,  Inventory  ) 

Description:  Information  describing  a  piece  of  equipment  belonging  to  the 
Admin  Science  Department  inventory. 

Data  Elements: 


Manufacturer 


Model 


Description 
Mfg_serial  # 

Requisition  # 

Property  type  (plant,  minor  other) 
Custodian 

Location  code  (storage,  lab  office,  home) 
Date  of  issue 


b.  User  View  No:  2 


User  View  Name:  Owner  (alias:  Custodian) 

Description:  Information  gathered  about  a  custodian  of  a  piece  of  equipment 
when  such  equipment  is  entered  into  inventory  or  reassigned. 

Two  owner  classes: 

1.  AS  Department  -  storage  items  or  lab  items 

2.  Personnel  -  home  or  office  items 
AS  Department  Data  Elements: 

•  AS  Department 

•  Location 


Personnel  Data  Elements: 


Last  Name 


First  Name 


Office 


Street 


Home  Phone  * 


*  Removed  to  homes  (see  User  View  #5) 
Revised  Personnel  Data  Elements: 


Last  Name 


First  Name 
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•  Location  (either  Bldg_room  or  Home) 

c.  User  View  No:  3 
User  View  Name:  Parts 

Description:  Information  describing  a  trackable  part  for  a  particular 
component. 

Data  Elements: 

•  Model 

•  Description 

•  Mfg  Serial  # 

•  Property  type 

•  Property  # 

•  Price 

•  Requisition  # 

•  Component  Serial  #  (if  blank,  assumed  storage  and  not  a  part  of  a 
component) 

d.  User  View  No:  4 

User  View  Name:  History  (alias:  Deleted  property) 

Description:  Information  used  to  track  minor  and  plant  property  (parts  or 
components)  when  deleted. 

Data  Elements: 

•  Mfg 

•  Model 

•  Serial  # 

•  Property  type 

•  Property  # 

•  Deletion  date 

e.  User  View  No:  5 
User  View  Name:  Homes 

Description:  Information  tracked  for  custodians  that  use  components  at  home. 
Data  Elements: 

•  Last  name 

•  First  name 

•  Street 

•  City 

•  Phone 


Relationships  were  identified  and  depicted  in  the  Data  Structure  Diagram, 
see  Figure  2.2.  Components  can  have  more  than  one  part,  and  an  owner  may  have 
more  than  one  component.  These  are  one-to-manv  relationships.  A  one-to-one 
relationship  exists  between  an  owner  and  home,  since  a  custodian  will  have  only  one 
home  address.  Notice  to  get  the  home  address  location  of  a  component  will  require 
linking  these  relations  through  an  owner.  The  history  relation  shows  no  dependent 
relationships. 


Figure  2.2  Data  Structure  Diagram. 


3.  Physical  Design 

The  next  phase  in  the  design  process  was  to  translate  the  users  views  into  the 
structures  necessary  to  implement  them  in  dBase  III  plus. 

The  data  definition  language  provided  with  dBase  III  plus  places  restrictions 
on  the  name  sizes  of  fields  and  files.  Files  are  limited  to  8  character  names  and  use  a 
.DBF  extension.  Each  field  must  have  a  name  of  10  characters  or  less.  Also  each  field 
requires  declaring  a  type  and  a  length.  Appendix  A  contains  a  listing  of  the  files  and 
data  elements  for  the  PMS. 

A  hierarchy  diagram  shown  in  Figure  2.3  outlines  the  modules  necessary  to 
implement  the  transactions  identified  during  requirements  analysis.  Since  it  is  intended 
for  the  program  to  be  menu  driven,  the  child  nodes  of  the  hierarchy  diagram  will  be 
options  presented  to  the  user  called  from  the  parent  nodes.  Program  descriptions  are 
contained  in  Appendix  A. 


Main 


Help  Enter 


Modify 

Owner/ 
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Delete  Print 
Property  Quarterly 
I  inventory 
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Lists 
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Components  Parts  Components  Parts 


Figure  2.3  Hierarchy  Diagram. 


4.  Implementation 

Implementation  required  first  writing  code  for  each  of  the  modules.  Appendix 
B  is  a  listing  of  all  programs.  Test  data  were  generated  and  each  module  was  tested 
thoroughly  to  ensure  that  no  failure  would  occur.  Due  to  the  requirement  that  a  user 
not  need  have  a  knowledge  of  dBase  III  plus  this  was  deemed  critical.  Programs 
were  written  so  that  a  user  is  walked  through  each  step,  with  the  program  in  control. 

Testing  also  involved  checking  for  data  inconsistencies.  As  modules  were 
written  they  were  tested  alone  and  in  combination  with  calling  modules.  The  testing 
proved  very  tedious  but  very  rewarding.  When  a  near  final  version  was  prepared  for 
screening  by  the  DEPT  supervisor  no  system  errors  were  discovered.  This  helped  instill 
a  sense  of  confidence  with  the  system.  A  few  inconspicuous  errors  were  discovered  and 
required  correction. 

The  screening  was  an  opportunity  for  feedback  about  the  output  presentations 
and  formats.  No  major  modifications  were  noted  and  once  the  system  was  finalized  it 
was  tested  with  the  real  data.  The  system  proved  reliable  and  accepted  as  satisfactory 
by  the  dept  supervisor. 

Estimates  were  made  on  the  maximum  file  sizes  and  a  storage  requirements 
analysis  is  outlined  in  Table  1.  This  showed  that  the  entire  database  can  reside  on  a 


single  floppy  disk  which  will  allow  an  easy  method,  of  backing  up  the  database  files. 
Copy  commands  are  included  in  an  Autoexec.bat  file  contained  on  the  system  boot  up 
disk.  When  the  system  is  exited  copies  are  done  without  a  user  having  to  remember  to 
do  so. 


1 

TABLE  1 

DATA  VOLUME  STORAGE  REQUIREMENTS 

FILE 

NUMBER 

BYTES  REQ 

TOTAL 

COMPONENTS 

1000 

149 

149,000 

PARTS 

200 

108 

21.  600 

OWNERS 

75 

39 

2,925 

HOMES 

30 

81 

2,430 

HISTORY 

100 

50 

5,000 

Finally  a  user's  manual  was  prepared  and  delivered  along  with  a  backup  copy 
of  the  system.  With  empty  database  files  the  system  will  fit  on  a  single  floppy  disk.  If 
a  problem  with  the  hard  disk  did  occur  it  would  be  necessary  to  copy  the  systems  disk 
and  the  latest  copy  of  the  database  files.  The  user's  manual  is  reproduced  in  Appendix 
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III.  CONCLUSIONS 

The  Property  Management  System  is  presently  being  utilized  and  is  providing  a 
useful  means  of  maintaining  accountability  for  the  AS  DEPT  property  accomplishing 
the  first  objective  of  this  thesis.  The  printed  reports,  and  screen  presentations  of 
information  output  were  furnished  for  this  purpose. 

The  objective  of  tike  maintenance  stage  of  the  life  cycle  is  to  keep  the  system 
functioning.  As  a  new  application  program,  errors  may  surface  requiring  correction. 
Additionally  it  was  observed  that  there  was  some  degree  of  user  uncertainty  whether  or 
not  all  outputs  will  be  useful,  or  if  additional  outputs  might  be  helpful.  These  are  only 
a  few  of  the  likely  future  maintenance  problems.  For  the  continued  success  of  this 
system  it  will  have  to  be  maintained. 

None  of  the  users  are  dBase  III  plus  programmers.  It  would  be  beneficial  for  a 
member  of  the  AS  DEPT  office  to  learn  the  language.  Capable  faculty  and  students 
are  available  and  should  be  recruited  to  handle  maintenance  functions  in  the  interim. 
With  the  documentation  contained  in  Appendixes  of  this  thesis  it  will  be  possible  for 
an  individual  with  a  reasonable  level  of  dBase  III  plus  to  either  modify  existing 
programs  or  create  new  ones  to  service  new  user  requirements. 

The  data  manipulation  language  provided  with  dBase  III  plus  allows  accessing 
and  manipulating  the  database  without  having  to  write  programs  to  do  so.  There  is  no 
method  of  taking  advantage  of  this  feature  from  the  PMS  application.  However  the 
database  files  can  be  accessed  and  called  directly  into  dBase  III  plus  for  use.  For  a 
dBase  III  plus  programmer  this  would  be  the  easiest  way  to  handle  single  output 
requests. 

Property  management  was  only  one  of  the  functions  addressed  during  the 
previous  prototype  development,  the  others  were  Personnel  and  Financial.  The  PMS 
application  could  easily  be  adapted  to  include  a  personnel  database.  This  was  not 
deemed  necessary  during  development  and  not  included.  The  department  is  very 
satisfied  with  the  manual  procedures  established. 

The  AS  DEPT  has  expressed  a  desire  to  automate  its  financial  system.  This 
should  be  the  next  development  project  to  be  undertaken.  The  PMS  application  would 
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work  very  well  as  a  stand  alone  system  without  the. need  to  integrate  it  with  a  financial 
system  for  the  following  reasons: 

1.  Property  is  a  very  small  subset  of  the  financial  expenditures  within  the  AS 

DEPT. 

2.  Very  little  data  would  be  duplicated. 

3.  A  spreadsheet  application  such  as  Lotus  may  serve  better  utility  for  a  financial 
system. 

Database  development  was  outlined  in  the  main  body  of  the  thesis  in  accordance 
with  the  second  objective.  The  Systems  Analysis  and  Design  methodology  proved  very 
useful  during  the  Property  Management  System  development.  The  success  of  the  PMS 
development  using  this  technique  can  be  attributed  to  three  reasons: 

1.  A  thorough  understanding  of  the  user  requirements. 

2.  Attention  to  database  structure  prior  to  system  design. 

3.  The  communication  and  documentation  provided  with  the  analysis  and  design 
tools. 

In  conclusion,  a  goal  of  any  development  effort  is  to  deliver  a  satisfactory  system 
on  time  and  within  budget.  This  goal  was  accomplished  with  the  Property 
Management  System. 


APPENDIX  A 
DATA  DICTIONARY 


This  Appendix  provides  necessary  information  for  the  maintenance  of  the 
Property  Management  System.  The  information  is  organized  into  four  sections  and 
presented  in  table  format.  The  usefulness  of  the  four  sections  are  discussed  as  follows: 

1.  Data  Files  -  This  section  lists  database  and  index  files.  The  usefulness  of 
database  files  should  be  obvious,  all  data  are  stored  in  these  files.  Index  files 
are  data  related  files  used  for  output  format  and  fast  retrieval  of  data  for 
output. 

2.  Data  Elements  -  This  section  is  the  data  dictionary  in  dBase  III  plus  format. 
The  structure  and  source  of  each  data  element  is  provided.  Due  to  the  10 
character  name  limitation  a  description  is  also  given  to  help  decipher  the 
purpose  of  each  element. 

3.  Files  Used  By  Programs  -  This  section  provides  the  database  and  index  files 
used  by  each  program  module.  This  section  will  prove  useful  in  determining  the 
effects  of  any  program  modifications. 

4.  Calls  -  This  section  provides  a  description  of  each  of  the  program  modules  and 
shows  the  relationship  between  modules.  The  programs  called  by  each  module 
and  the  calling  program  of  a  particular  module  are  provided. 


TABLE  2 
DATA  FILES 


FILE  NAME 

TYPE 

COMPS. DBF 

DATA 

PARTS.  DBF 

DATA 

OWNERS.  DBF 

DATA 

HOMES. DBF 

DATA 

HISTORY. DBF 

DATA 

NAMES.  NDX 

INDEX 

COMPOSER.  NDX 

INDEX 

NAME_LOC.  NDX 

INDEX 

C_SER. NDX 

INDEX 

L_FNAMES.  NDX 

INDEX 

TEMP. DBF 

DATA 

TEMP2 . DBF 

DATA 

TEMP 3.  DBF 

DATA 

TEMP 3. NDX 

INDEX 

TYPE_NUM.  NDX 

INDEX 

TEMP. NDX 

INDEX 

DESCRIPTION 


ATTRIBUTES  ABOUT  A 
COMPONENT  PROPERTY  ITEM 

ATTRIBUTES  ABOUT  A  PART 
PROPERTY  ITEM 

NAME  AND  LOCATION  OF  A 
PROPERTY  CUSTODIAN 

HOME  ADDRESS  OF  A 
CUSTODIAN  WITH  HOME 
PROPERTY 

AN  ARCHIVE  FOR  DELETED 
PLANT  OR  MINOR  PROPERTY 

ON  LAST  NAME  +  FIRST_NAME 
+  LOCATION 

ON  COMP_SER 

ON  LAST  NAME  +  FIRST_NAME 
+  LOCATION 

ON  COMP_SER 

ON  LAST_NAME  +  FIRST_NAME 

JOINS  COMPS  WITH  OWNERS 

JOINS  COMPS  WITH  HOME 

JOINS  COMPS  WITH  PARTS 

ON  LAST  NAME  +  F I RST_NAME 
+ LOCATION  +  C_MFG  + 
C_MODEL 

ON  P_TYPE  +  P_NUM 

ON  C  PTYPE  +  C_PNUM  (FOR 
SUM.  EPT) 

ON  LAST  NAME  +  FIRST.NAME 
(FOR  QTR.  RPT) 


TABLE  3 

DATA  ELEMENTS 


ELEMENT 

TYPE 

WIDTH 

SOURCE 

DESCRIPTION 

CITY 

CHAR 

15 

HOMES.  DBF 

A  HOME  CUSTODIAN'S 
HOME  ADDRESS 

COMP_SER 

CHAR 

15 

COMPS.  DBF 

MANUFACTURER'S 
SERIAL  #  (KEY) 

COMP.SER 

CHAR 

15 

PARTS.  DBF 

COMPONENT  MFG 
SERIAL  #  A  PART  IS 
ASSIGNED 

C_DESC 

CHAR 

50 

COMPS.  DBF 

DESCRIPTION  OF  A 
COMPONENT 

C_MFG 

CHAR 

15 

COMPS.  DBF 

COMPONENT  MFG 

C_MODEL 

CHAR 

15 

COMPS.  DBF 

COMPONENT  MODEL 

C_PNUM 

CHAR 

10 

COMPS.  DBF 

COMPONENT  PROPERTY 
NUMBER  (MINOR  AND 
PLANT  TYPES) 

C_PRICE 

NUM 

10 

COMPS.  DBF 

COMPONENT  PRICE, 
USES  A  TEMPLATE 
(99,999.  99) 

C_TYPE 

CHAR 

1 

COMPS.  DBF 

COMPONENT  PROPERTY 
TYPE  (PLANT, MINOR, 
OTHER) 

C_REQN 

CHAR 

15 

COMPS.  DBF 

DEPT  REQUISITION  # 
USES  A  TEMPLATE 
9999-NNNN/NNNNN 

DEL_DATE 

DATE 

8 

HISTORY.  DBF 

DATE  A  COMPONENT 

OR  PART  IS  PLACED 
INTO  HISTORY 

FIRST_NAME 

CHAR 

15 

COMPS.  DBF 

CUSTODIAN'S  FIRST 
NAME  (AS  DEPT  GETS 

ROOM  #) 


TABLE  3 

DATA  ELEMENTS  (CONT'D. ) 


ELEMENT 

TYPE 

WIDTH 

SOURCE 

DESCRIPTION 

FIRST_NAME 

CHAR 

15 

OWNERS.  DBF 

CUSTODIAN'S  FIRST 
NAME  (COMPOSITE 

KEY) 

FIRST_NAME 

CHAR 

15 

HOMES. DBF 

HOME  CUSTODIAN'S 
FIRST  NAME 
(COMPOSITE  KEY) 

ISSUE_DATE 

DATE 

8 

COMPS.  DBF 

DATE  A  COMPONENT 
ASSIGNED  TO  A 
CUSTODIAN 

LAST_MAME 

CHAR 

15 

COMPS.  DBF 

CUSTODIAN'S  LAST 
NAME  (AS  DEPT 

GETS  AS  DEPT) 

LAST_NAME 

CHAR 

15 

OWNERS.  DBF 

CUSTODIAN'S  LAST 
NAME  (COMPOSITE 

KEY) 

LAST_NAME 

CHAR 

15 

COMPS.  DBF 

HOME  CUSTODIAN'S 
LAST  NAME 
(COMPOSITE  KEY) 

LOCATION 

CHAR 

8 

OWNERS.  DBF 

BLDG- ROOM  #  OF  A 
COMPONENT  CUSTODIAN 

LOC_CODE 

CHAR 

1 

COMPS.  DBF 

LOCATION  CODE 
(HOME, OFFICE, LAB, 

Stora6e ) 

MFG 

CHAR 

15 

HISTORY.  DBF 

MFG  OF  DELETED 
COMPONENT 

MODEL 

CHAR 

15 

HISTORY.  DBF 

COMPONENT  OR  PART 
MODEL  OF  DELETED 
PROPERTY 

PART_SER 

CHAR 

15 

PARTS.  DBF 

MANUFACTURER'S 
SERIAL  # 

PHONE 

CHAR 

13 

HOMES. DBF 

A  HOME  CUSTODIAN'S 

HOME  PHONE  # 
USES  A  TEMPLATE 
( 999)999-9999 


TABLE  3 

DATA  ELEMENTS  (CONT'D.  ) 


ELEMENT 

TYPE 

WIDTH 

SOURCE 

DESCRIPTION 

PNUM 

CHAR 

10 

HISTORY.  DBF 

PROPERTY  #  OF  A 
DELETED  PART  OR 
COMPONENT 

PTYPE 

CHAR 

1 

HISTORY.  DBF 

PROPERTY  TYPE  OF 

A  DELETED  PART  OR 
COMPONENT 

P.DESC 

CHAR 

50 

PARTS.  DBF 

A  DESCRIPTION  OF 

A  PARTICULAR  PART 

P_MODEL 

CHAR 

15 

PARTS.  DBF 

PART  MODEL 

P_NUM 

CHAR 

10 

PARTS.  DBF 

PART  PROPERTY  # 
(MINOR  AND  PLANT 
TYPES) 

P_PRICE 

NUM 

8 

PARTS.  DBF 

PRICE  OF  A 
PARTICULAR  PART, 
USES  A  TEMPLATE 
9,999. 99 

P_TYPE 

CHAR 

1 

PARTS.  DBF 

PART  PROPERTY  TYPE 
( PLANT , MINOR , OTHER ) 

P_REQN 

CHAR 

15 

PARTS. DBF 

DEPT  REQUISITION  # 
USES  A  TEMPLATE 

9 9 9  9 - NNNN/NNNNN 

SERIAL.NUM 

CHAR 

15 

HISTORY.  DBF 

MFG  SERIAL  #  OF  A 
DELETED  PART  OR 
COMPONENT 

STREET 

CHAR 

25 

HOMES.  DBF 

A  HOME  CUSTODIAN'S 
ADDRESS 

TABLE  4 

FILES  USED  BY  PROGRAMS 


PROGRAM 

DATABASE  FILES 

INDEXES 

ADDCOMP . PRG 

HOMES.  DBF 

OWNERS.  DBF 

COMPS.  DBF 

LFNAMES. NDX 
NAMES.  NDX 
NAME_LOC. NDX 

ADD_HELP.  PRG 

NONE 

NONE 

ADDMENU.  PRG 

NONE 

NONE 

ADDPART. PRG 

PARTS.  DBF 

COMPS.  DBF 

C  SER. NDX 
C5MP  SER. NDX 
NAME.LOC.  NDX 

ADHOC. PRG 

NONE 

NONE 

DELCOMP.  PRG 

HISTORY.  DBF 
PARTS.  DBF 

HOMES. DBF 

OWNERS.  DBF 

COMPS.  DBF 

NONE 

C_SER. NDX 

L  FNAMES.  NDX 
NAMES. NDX 
COMP_SER. NDX 
NAME_LOC.  NDX 

DEL_HELP.  PRG 

NONE 

NONE 

DELMENU.  PRG 

NONE 

NONE 

DELPART. PRG 

HISTORY.  DBF 
PARTS.  DBF 

COMPS.  DBF 

NONE 

C  SER.  NDX 
CCMP_SER.  NDX 
NAME_LOC. NDX 

MAIN_HELP.  PRG 

NONE 

NONE 

MODCOMP.  PRG 

PARTS.  DBF 

HOMES.  DBF 

COMPS.  DBF 

C_SER. NDX 
LFNAMES. NDX 
COMPOSER.  NDX 
NAME_LOC.  NDX 

MOD.HELP. PRG 

NONE 

NONE 

TABLE  4 

FILES  USED  BY  PROGRAMS  (CONT'D.  ) 


n 
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\ 

\ 
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PROGRAM 

DATABASE  FILES 

INDEXES 

MODLOC. PRG 

OWNERS.  DBF 

COMPS.  DBF 

NAMES.  NDX 
COMP  SER.  NDX, 
NAME.LOC. NDX 

MODMENU.  PRG 

NONE 

NONE 

MODPART. PRG 

PARTS.  DBF 

HOMES.  DBF 

OWNERS.  DBF 

COMPS.  DBF 

C_SER.  NDX 
LFNAMES. NDX 
NAMES. NDX 
COMP_S£R. NDX 
NAME.LOC. NDX 

OWNERS.  PRG 

HOMES.  DBF 

OWNERS.  DBF 

LFNAMES. NDX 
NAMES. NDX 

PMANF.  PRG 

COMPS.  DBF 

NONE 

PMOD.  PRG 

COMPS.  DBF 

NONE 

PROPERTY.  PRG 

NONE 

NONE 

QRY_HELP.  PRG 

NONE 

NONE 

QTR_RPT.  PRG 

PARTS.  DBF 

OWNERS.  DBF 

COMPS.  DBF 

C  SER. NDX 
NAMES.  NDX 
COMP_SER. NDX 
NAME_LOC.  NDX 

REPORTS. PRG 

NONE 

NONE 

RPT_HELP.  PRG 

NONE 

NONE 

SLOCATIO.  PRG 

COMPS.  DBF 

NAME.LOC. NDX 

SOWNER.  PRG 

COMPS.  DBF 

OWNERS.  DBF 

NAME  LOC. NDX 
NAMES. NDX 

SUM_RPT.  PRG 

PARTS.  DBF 

COMPS.  DBF 

C—SER. NDX 
COMP_SER.  NDX 
NAME_LOC. NDX 
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TABLE  5 
CALLS 


PROGRAM 
ADDCOMP.  PRG 

ADD_HELP.  PRG 

ADDMENU.  PRG 

ADDPART.  PRG 

ADHOC.  PRG 

DELCOMP.  PRG 

DEL_HELP.  PRG 

DELMENU.  PRG 

DELPART.  PRG 


CALLS 


CALLED  BY 


ENTERS  COMPONENTS  INTO  COMPS. DBF  AND 
ASSIGNS  CUSTODIANS  PLACING  THEM  INTO 
OWNERS  OR  HOMES  IF  NOT  ON  FILE 


NONE 


ADDMENU.  PRG 


DESCRIBES  IN  GENERAL  THE  PROCEDURES  TO 
ENTER  A  PART  OR  COMPONENT 


NONE 


ADDMENU.  PRG 


MENU  DISPLAY  OF  THE  CHOICE  TO  ENTER  A 
PART  OR  COMPONENT 


ADDCOMP .  PRG 


PROPERTY.  PRG 


ENTER  PARTS  AND  PLACES  THEM  INTO  PARTS, 
ASSIGNING  THEM  TO  STORAGE  OR  A  COMPONENT 

NONE  ADDMENU. PRG 

DISPLAYS  THE  MENU  FOR  LISTS  AND  SEARCHES 

OWNERS.  PRG  PROPERTY.  PRG 

SOWNER.  PRG 

SLOCATIO.  PRG 

OR Y  HELP.  PRG 

FMAFJF.  PRG 

PMOD.  PRG 

DELETES  COMPONENTS  AND  PLACES  PLANT 
AND  MINOR  PROPERTY  INTO  HISTORY 


NONE 


DELMENU.  PRG 


DESCRIBES  IN  GENERAL  THE  PROCEDURES  TO 
DELETE  A  PIECE  OF  PROPERTY 


NONE 


DELMENU.  PRG 


DISPLAY  THE  CHOICE  TO  DELETE  A  PART  OR 
COMPONENT 


DELCOMP.  PRG 
DELPART.  PRG 
DELHELP.  PRG 


PROPERTY.  PRG 


DELETES  PARTS,  PLACES  PLANT  AND  MINOR 
PROPERTY  INTO  HISTORY 


NONE 


DELMENU.  PRG 


TABLE  5 

CALLS  (CONT'D. ) 


I 


PROCRAM 


MODCOMP.  PRG 


MODLOC.  PRG 


MODMENU.  PRG 


MODPART.  PRG 


OWNERS.  PRG 


PMANF.  PRG 

PMOD.  PRG 


CALLS 


CALLED  BY 


MAIN_HLP.  PRG 


DESCRIBES  THE  PROPERTY  SYSTEM  AND 
EXPLAINS  IN  GENERAL  THE  TASKS  AVAILABLE 


NONE 


PROPERTY.  PRG 


ALLOWS  THE  MODIFICATION  OF  A  COMPONENT 
RECORD  [EXCEPT  FIELDS  TO  ASSIGN 
OWNERSHIP ) ,  IF  THE  SERIAL  #  IS  CHANGED 
IT  IS  REFLECTED  IN  PARTS 


NONE 


MODMENU.  PRG 


MOD_HELP. PRG 


DESCRIBES  IN  GENERAL  THE  PROCEDURES  USED 
TO  CHANGE  A  PROPERTY  RECORD 


NONE 


MODMENU.  PRG 


ALLOWS  REASSIGNING  A  COMPONENT  TO  A 
NEW  CUSTODIAN,  IF  NOT  ON  FILE  CUSTODIAN 
ADDED  TO  OWNERS  OR  HOME 


NONE 


MODMENU.  PRG 


DISPLAYS  THE  CHOICES  TO  MODIFY  A 
COMPONENT  OR  PART  RECORD.  ALSO  ALLOWS 
REASSIGNING  THEM  A  NEW  CUSTODIAN 


MODCOMP.  PRG 
MODLOC.  PRG 
MODPART.  PRG 
MODHELP.  PRG 


PROPERTY.  PRG 


ALLOWS  MODIFICATION  OF  A  PART  RECORD, 
IF  REASSIGNED  TO  A  DIFFERENT  COMPONENT 
CHECKS  TO  SEE  IF  COMPONENT  IS  ON  FILE 


NONE 


MODMENU.  PRG 


LISTS  CUSTODIANS  ON  FILE  (NAME  AND 
LOCATION) 


NONE  ADHOC. PRG 

DISPLAYS  THE  COMPONENTS  OF  A  DESIRED  MFG 
NONE  ADHOC.  PRG 


FINDS  ALL  COMPONENTS 
MODEL 


OF  A  DESIRED  MFG'S 


NONE 


ADHOC.  PRG 
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TABLE  5 

CALLS  (CONT'D.  ) 


PROGRAM  CALLS  CALLED  BY 


PROPERTY.  PRG  MAIN  MENU  TO  DISPLAY  THE  VARIOUS  TASKS 
THAT  ARE  AVAILABLE  FOR  THE  USER,  CHECKS 
PASSWORD/ACCESS 

DOS  DBASE  III 

QRY_HELP.  PRG  DESCRIBES  IN  GENERAL  THE  LIST  AND 
SEARCH  CAPABILITIES 

NONE  ADHOC.  PRG 

QTR_RPT.  PRG  PRINTS  3  REPORTS: 

1.  COMPONENTS  GROUPED  CUSTODIAN/LOCATION 

2.  PARTS  GROUPED  BY  CUSTODIAN/COMPONENT 

3.  STOCK  PARTS  NOT  ASSIGNED 

TEMP. FRM  NONE 

TEMP 3.  FRM 
STOKPART. FRM 

REPORTS.  PRG  MENU. TO  DISPLAY  THE  CHOICES  TO  PRINT  A 
QUARTERLY  OR  SUMMARY  REPORT 

QTR.RPT. PRG  PROPERTY.  PRG 

SUM_RPT.  PRG 
RPT_HELP.  PRG 

RPT_HELP.  PRG  DESCRIBES  IN  GENERAL  THE  PROCEDURES  TO 
PRINT  THE  PROPERTY  REPORTS 

NONE  REPORTS.  PRG 

SLOCATIO. PRG  DISPLAYS  COMPONENTS  GROUPED  BY  THE 
LOCATION  CODE 

NONE  ADHOC. PRG 

SOWNER.  PRG  DISPLAYS  COMPONENTS  OF  A  PARTICULAR 
CUSTODIAN 

NONE  ADHOC.  PRG 

SUM_RPT. PRG  PRINTS  3  REPORTS: 

1.  COMPONENTS  GROUPED  BY  PROPERTY 
TYPE  &  NUMBER 

2.  ASSIGNED  PARTS  GROUPED 

3.  STOCK  PARTS  SAME  GROUPING 


TEMPI.  FRM 
PARTSTOK.  FRM 
PARTSUM.  FRM 


NONE 


APPENDIX  B 
PROGRAM  LISTINGS 
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1.  ADDCOMP.PRG 

****** ************** 

*Author . 

*Purpose . 


*Calls . 

*Reserved . 

*Input/Output  Files. 


Program:  ADDCOMP.PRG  ***************** 
TIM  SEXTON 

enter  components  into  COMPS  and  assign 

custodians  placing  them  into  OWTfERS  or  HOMES 
if  not  presently  on  file 

None 

None 

COMPS. DBF.  OWNERS. DBF,  HOMES. DBF 


5 


1 


clear 

set  confirm  on 
set  exact  off 


use  homes  index  l_fnames 
select  b 

use  owners  index  names 
select  a 

use  comps  index  name_loc,comp_ser 
do  while  .t. 

blank  *  space (15) 

mrnfg  *  blank 
mmoa  =  blank 
mdesc  *  space  (50) 
mser  *  blank 


mptype  =  "  " 
mpnum  *  space (10) 

mprice  =0.00 
mreqn  a  blank 

mloc_code  =  "  " 
mtoday  *  date(  ) 

mlname  3  blank 
mfname  =  blank 

mstreet  *  space(25) 
mcity  *  blank 
mlocation  *  space(8) 

mphone  *  space (13) 

entering  *  .t. 
finished  »  .f. 
addowner  =.f. 
addhome  s  . f. 

@0,16  say  "COMPONENT  ENTRY  SCREEN" 
@  1,0  to  1,79  double 

@2,0  say  "Enter  Component  Information*" 

@  21,0  to  21,79 

do  while  .not.  finished  &&  entering  a  component 

do  while  entering  &&  componenet  information 

@  2,56  say  "date*  " 

@  2,61  say  mtoday 

@  3,12  say  "mfg*  " 


I! 


<3  4,10  say  "model:  " 

<3  5,7  say  "serial  #:  " 

<3  6,4  say  "description: 

(3  22,25  say  "To  EXIT  leave  mfg  blank" 

*  entries  begin  at  column  13 

c  =  18 

*  enter  mfg  or  exit 

<3  3 , c  get  mmfg  PICTURE  "@N!" 
read 

if  mmfg  *  blank 
set  confirm  off 
close  databases 
release  all 
return 
else 

(3  22,0  clear  to  23,79 
endif 

*  enter  model 

@  4 , c  get  mmod  PICTURE  "@N!" 
read 

*  enter  mfg  serial#  (mandatory) 

no_ser  =  . t . 
do  while  no_ser 

(3  5,c  get  mser  PICTURE  "<3N!" 
read 

if  mser  -  blank 

@  22,24  say  "serial  #  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  *  delay  +  1 
enddo 

<3  22,0  clear  to  22,79 
else 

no_ser  =  .f. 
endif 
enddo 

*  enter  description 

(3  6 ,c  get  mdesc  PICTURE  "<3Nl" 
read 

*  enter  location  code 

set  confirm  off 

(3  8,1  say  "designated  use:  " 

(|  8,20  say  "(Office  /  Lab  /  Storage  /  Home)" 

(3  8,c  get  mloc.code  PICTURE  "(3! A" 
read 

do  while  .not.  mloc  code  $"0oLlSsHh" 
mloc.code  *  "  " 

(3  8,c  get  mloc  code  PICTURE  "(3! A" 
read 
enddo 

set  confirm  on 

*  enter  custodian  information,  search  to  see  if  on  file 

*  use  owners  for  loc_codes  0,S,L 

*  use  homes  for  loc_code  H 

*  last  name,  first  name,  and  office  or  home  addresses  are  mandatory 

do  case 

*  office  use 

case  mloc_code  *  "0" 

no_lname  *  . t . 
do  while  no  lname 

(3  9,0  clear  to  15,79 
(3  9,6  say  "Custodian" 

(3  10,6  say  "last  name:  " 

(3  10, c  get  mlname  PICTURE  "(3! A" 
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read 

if  mlname  =  blank 

@  22,24  say  "Custodian's  name  may  not  be  blank" 
delay  «  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_lname  =  .f. 
endif 

enddo  no  lname 

*  check  to  see  if  on  file 

select  owners 
goto  top 
searched  *  .  f. 
checked  =  .f. 
located  =  .f. 
addowner  =  .  f. 

do  while  .not.  searched 
if  eof { ) 

searched  *  . t. 
else 

seek  trim(mlname) 
endif 

if  .not.  found() 
searched  =  .t. 
addowner  *  .t. 
endif 

if  foundQ  .and.  location  *  "HOME" 
searched  =  .t. 
located  =  .t. 
checked  =  .t. 
endif 

if  foundQ  .and.  location  <>  "HOME" 
searched  *  .t. 
located  »  .t. 
checked  =  .f. 
endif 
enddo 

do  while  located 

do  while  .not.  checked 

@11,5  say  "first  name:  " 

@  11, c  say  first_name 
@  12,9  say  "office:  " 

@  12, c  say  location 

set  confirm  off 
ans  -  "  " 

do  while  .not.  ans  $"yYnN" 
ans  *  "  " 

@  22,25  say; 

"Is  this  the  correct  custodian?:  :" 

9  23,34  say  "[  Yes  /  No  1" 

@  22,56  get  ans  picture  "@!A" 
read 
enddo 

@22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  =  "Y" 
located  *  ,f. 
checked  =  .t. 
mfname  *  first_name 
mlocation  =  location 
else 

checked  =  .t. 

@  11, c  clear  to  12,79 
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supply  use 


endif 

enddo  checked 

do  while  located  .and.  checked  .and.  .not.  eof() 
skip 

if  eof ( ) 

located  =  .f. 
addowner  =  .t. 
endif 

if  last  name  =  mlname 
checked  =  .f. 
else 

located  =  .f. 
addowner  =  .t. 
endif 

if  location  *  "HOME" 
located  =  .t. 
checked  =  .t. 
endif 

enddo  located  and  checked 
enddo  located 

if  addowner 

no_fname  =  .t. 
do  while  no_fname 

@11,5  say  "first  name:  " 

@  11, c  get  mfname  picture  "@!A" 
read 

if  mfname  =  blank 

@  22,20  say  "A  first  name  or  first"+; 

"  initial  is  required" 

delay  =  0 

do  while  delay  <25  * 

delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_fname  =  .f. 
endif 

enddo  no  fname 

@  12,9  say  "office:  " 

@  12,27  say  "(bldg-room)" 

no_office  =  .t. 

do  while  no_office 

@  12, c  get  mlocation  PICTURE  "@!  (A-999)" 
read 

if  mlocation  =  space(8) 

@  22,28  say  "Office  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_office  =  .f. 
endif 

enddo  no  office 
endif  add  owner 

case  mloc_code  =  "S" 

@  9,0  clear  to  15,79 

@11,8  say  "custodian:  AS  DEPT" 

@  12,9  say  "location:  (1-200)" 
mlname  *  "AS  DEPT  " 

mfname  =  "(1-200)  " 
mlocation  =  "STORAGE  " 


r* 


*  check  to  see  if  on  file 

select  owners 
goto  top 
addowner  =  .f. 


if  eof() 

addowner  =  .t. 
else 

locate  for  last_name  =  trim(mlname)  .and.; 
first_name  =  trim(mfname)  .and.; 
location  *  trim(mlocation) 

endif 

if  .not.  found{) 
addowner  =  .t. 
endif 


*  lab  use 


case  mloc_code  =  "L" 

@  9,0  clear  to  15,79 

@  10,5  say  "A  -  (1-158)  Front  C  -  (1-224)" 

@  11,5  say  "  B  -  (1-158)  Back  D  -  (1-250)" 

@13,3  say  "Enter  one  of  the  above  lab  locations  :  s' 

set  confirm  off 
lab  =  "  " 

do  while  .not.  lab  $  "AaBbCcDd" 
lab  =  "  " 

@  13,41  get  lab  picture  "@(A" 
read 
enddo 

set  confirm  on 

mlname  *  "AS  DEPT  " 

mlocation  *  "LAB  " 
do  case 

case  upper (lab)  *  "A" 
mfname  =  "(I-158)F" 

!  "B" 


mfname 
case  upper 


e  upper (lab)  *  "B" 
mfname  =  "(I-158)B" 

e  upper (lab)  *  "C" 
mfname  =  "(1-224)" 

e  upper(lab)  =  "D" 
mfname  =  "(1-250)" 


endcase 

*  check  to  see  if  on  file 

select  owners 
goto  top 
addowner  *  .f. 


*  home  use 


if  eof() 

addowner  *  . t. 
else 

locate  for  last_name  =  trim(mlname)  .and.; 
first_name  *  trim(mfname)  .and.; 
location  *  trim(mlocation) 

endif 

if  .not.  found() 
addowner  ■  .t. 
endif 

case  mloc_code  *  "H" 

mlocation  *  "HOME  " 
no_lname  *  .t. 
do  while  no  lname 

@  9,0  clear  to  15,79 

@  9,6  say  "Custodian" 


@  10,6  say  "last  name:  " 

@  10, c  get  mlname  PICTURE  "@!A" 
read 

if  mlname  =  space(lS) 

@  22,24  say  "Custodian's  name  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_lname  =  .f. 
endif 

enddo  no  last  name 

*  check  to  see  if  on  file 

select  homes 
goto  top 
searched  =  .  f. 
located  =  .f. 
checked  =  . f. 
addowner  =  .f. 
addhome  =  .£. 

do  while  .not.  searched 
if  eof() 

searched  =  .t. 
else 

seek  trim(mlname) 
endif 

if  .not.found() 
searched  =  .t. 
addowner  =  .t. 
addhome  = . t . 

endif  * 

if  foundO 

searched  =  .t. 
located  =  .t. 
checked  =  .f. 
mfname  *  first_name 
mstreet  =  street 
mcity  =  city 
endif 

enddo  not  searched 

do  while  located 

do  while  .not.  checked 

@11,5  say  "first  name:  " 

@  11, c  say  first_name 
<t  12,9  say  "street:  " 

<§  12, c  say  street 
@  13,11  say  "city:  " 

@  13, c  say  city 
@  14,10  say  "phone:  " 

@  14, c  say  phone 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,25  say.- 

"Is  this  the  correct  custodian?:  :" 

@  23,34  say  "[  Yes  /No  1" 

@  22,56  get  ans  picture  "@!A" 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  upper(ans)  =  "Y" 
located  =  .f. 


checked  =  .t.  - 
else 

checked  =  .t. 

@  11, c  clear  to  14,79 
endif 

enddo  checked 

do  while  located  .and.  checked  .and.  .not.  eof() 
skip 

if  eof() 

located  =  .f. 
addowner  =  .t. 
addhome  =  .t. 
endif 

if  last  name  =  mlname 
checked  =  .f. 
else 

located  =  .f. 
addowner  =  .t. 
addhome  =  .t. 
endif 

enddo  located  and  checked 
enddo  located 

if  addowner 

no_fname  =  .t. 
do  while  no_fname 

@11,5  say  "first  name:  " 

@  11, c  get  mfname  picture  "@!A" 

read 

if  mfname  =  blank 

@  22,20  say  "A  first  name  or  first"+; 

"  initial  is  required'* 

delay  =  0 

do  while  delay  <25 
delay  *  delay  +  1 
enddo 

@22,0  clear  to  22,79 
else 

no_fname  *  .f. 
endif 

enddo  no  fname 

no_address  =  .t. 
do  while  no  address 

@12,9  say  "street:  " 

@  12, c  get  mstreet  PICTURE  "@!" 

@  13,11  say  "city:  " 

@  13, c  get  mcity  PICTURE  "@!A" 

@  14,10  say  "phone:  " 

@  14, c  get  mphone  PICTURE  "(999)999-9999" 
read 

if  mstreet  =  space(25)  .or.  mcity  ■  blank 

@  22,25  say  "Street  or  City  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no  address  -  .£. 
endif 

enddo  no  address 


endif  addowner 
endcase  location  code 

enter  property  type  (mandatory) 
set  confirm  off 
@16,2  say  "property  type:  " 


@  16,20  say  "(Plant  /  Minor  /  Other)" 

@  16, c  get  mptype  PICTURE  "@!A"-  - 
read 

do  while  .not.  mptype  $  "mMoOpP" 
mptype  =  "  " 

@  lo,c  get  mptype  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 

*  no  property#  for  other  type  property 

it  upper  (mptype;  =  flO"  &&  ensure  it  is  blank 

mpnum  =  space (10) 
endif 

*  enter  property#  (mandatory  for  plant  and  minor  property  types) 

if  upper(mptype)  =  "M"  .or.  upper (mptype)  = 

@17,5  say  ''property  #:  " 
no_num  =  . t . 
do  while  no  num 

@  17, c  get  mpnum  PICTURE  "@N!" 
read 

if  mpnum  =  space (10) 

<3  22,15  say  "Minor  and  Plant  property"+; 

"  require  a  property  number" 
delay  =0  *  *  1 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_num  =  .  f . 
endif 
enddo 
endif 

*  enter  price  and  requisition# 

@  19,10  say  "price:  $" 

@  20,9  say  "reqn  #:  " 

@  19, c  get  mprice  PICTURE  "@R  99,999.99" 

@  20, c  get  mreqn  PICTURE  "@!R  9999-NNNN/NNNNN" 

read 

*  allow  editing  or  abandon  current  entry 

@  22,0  clear  to  23,79 

(?  22,23  say  "Is  the  above  information  correct?:  :" 

@  23,28  say  "[  Yes  /  No  /  Abandon  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnNaA" 
ans  =  "  " 

@  22,57  get  ans  picture  "@!A" 
read 
enddo 

@  22,15  clear  to  23,79 
set  confirm  on 

*  clear  mvar  that  controls  creating  a  new  owner  or  home  record 

if  upper (ans)  =  "N" 
addowner  =  .f. 
addhome  =  . f . 

@  9,0  clear  to  20,79 
endif 

*  abandon  entry  ->  clear  mvar  and  close  any  open  dbf 

if  upper(ans)  =  "A" 
set  confirm  off 
close  databases 
release  all 
return 
endif 


*  * 
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*  place  entry  into  dbf 

if  upper (ans)  =  "Y"  &&  add'mvar  to  dbf 

entering  =  .f. 
endif 

enddo  entering 

(3  22,20  say  "Standby  while  your  entry  is  placed  on  file" 
lace  in  owners 

_ocation  =  HOME  for  home  use 

*  location  =  LAB  for  lab  use 

if  addowner 

select  owners 
append  blank 

replace  last_name  with  trim(mlname) 
replace  first_name  with  trim(mfname) 
replace  location  with  trim(miocation) 
endif 

*  place  in  homes 

if  addhome 

select  homes 
append  blank 

replace  last_name  with  trim(mlname) 
replace  first_name  with  trim(mfname) 
replace  street  with  trim(mstreet) 
replace  city  with  trim(mcity) 
replace  phone  with  mphone 
endif 

*  place  in  comps 

select  comps 
append  blank 

replace  c_nfg  with  trim(mmfg) 
replace  c_moael  with  tnm(mmod) 
replace  c_desc  with  trim(mdesc) 
replace  comp_ser  with  trim(mser) 
replace  c_ptype  with  mptype 
replace  c_pnum  with  trim(mpnum) 
replace  cjprice  with  mpnce 
replace  c_reqn  with  trxm(mreqn) 
replace  last_name  with  trim(mlname) 
replace  first_name  with  trim(mfname) 
replace  loc_code  with  mloc_code 
replace  issue_date  with  mtoday 

<3  22,0  clear  to  23,79 

@  22,18  say  "Do  you  have  additional  components  to  enter?: 
(3  23,28  say  "t  Yes  /  No  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,62  get  ans 
read 
enddo 

if  upper (ans)  *  "N" 
finished  =  . t. 
clear 

else  &&  set  up  for  the  next  one 

(3  22,0  clear  to  23,79 

entering  *  .t. 
addowner  a  .f. 
addhome  =  . f . 

mrnfg  =  blank 
mmoa  =  blank 
mdesc  *  space  (50) 
mser  *  blank 

mptype  =  "  " 
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mpnum  =  space (10) 

mprice  =0.00 
mreqn  =  blank 

mloc_code  =  "  " 

@  22,0  clear  to  23,79 
@  22,17  say; 

"Is  the  next  component  for  the  same  custodian?: 
<3  23,31  say  "[  Yes  /  No  ]" 

ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,63  get  ans 
read 
enddo 

set  confirm  on 
(3  22,0  clear  to  23,79 

if  upper  fans)  =  "N" 
mlname  =  blank 
mfname  =  blank 

mstreet  =  space(25) 
mcity  =  blank 
mlocation  =  space (8) 
mphone  =  space (13) 


endif 

endif  set  up 
<3  3,0  clear  to  20,79 
enddo  finished 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  addcomp.prg 


ADDMENU.PRG 


*********************  Program:  ADDMENU.PRG  ******************* 
*Author .  TIM  SEXTON 

*Purpose . .  Menu  displays  the  choices:  enter  components  or 


******************* 


* 

*Calls 

* 


parts 
:  ADDC0 


C0MP.PRG,  ADDPART . PRG 


*Input/Output  Files.:  NONE 

*set  up  the  screen  environment 
clear 

set  confirm  off 
*  display  the  dialogue  menu 
do  while  .t. 
clear 

@  2,10  to  13,69  double 

@  3,30  say  "Property  Entry  Menu" 

@  4,11  to  4,68  double 

(3  6,27  say  "  1  -  COMPONENT  entry" 

<3  7,27  say  "  2  -  PART  entry" 

@  9,27  say  "  H  -  HELP" 

@  11,27  say  "  0  -  RETURN  to  main  menu" 


P  to >•  m  *.  •  *  t  t  to  v.  >  *,  to  *  >•  •  _»  >  to  '-to  ^  to  1 


wwwww 
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<?  13,30  say  “  selection  :  :  " 

choice  »  "  " 

@  13,42  get  choice 
read 

*  place  an  asteriks  next  to  a  valid  choice  and  erase  all  other 

*  rows 

if  choice  $  "hH012" 
do  case 

case  upper (choice)  =  "H" 

@  9,26  say 
choicerow  =  9 
case  choice  *  "0" 

<?  11,26  say 
choicerow  =  11 
otherwise 

@  5+val(choice) ,26  say 
choicerow  =  5+val (choice) 

endcase 

firstrow  »  6 
rows  =  7 
rowcnt  =  0 

do  while  rowcnt  <  rows 

if  rowcnt+firstrow  <>  choicerow 

@  firstrow+rowcnt,27  say  space(25) 
endif 

rowcnt  -  rowcnt  +  1 
enddo 
endif 

*  do  a  valid  choice  or  loop  back  thru  this  program 

do  case 

case  choice  =  "0" 
return 

case  choice  =  "1" 
do  addcomp 
case  choice  *  "2" 
do  addpart 

case  upper (choice)  ■  "H" 
do  addjhelp 
otherwise 

@  17,22  say  *******  not  a  valid  selection  ******* 

wait 

loop 

endcase 

enddo 

’'EOF  ADDMENU .  PRG 


3.  ADDPART.PRG 

******************** 

^Author . : 

^Purpose . . 

. . 

^Reserved . : 

*Input/Output  Files.: 


Program:  ADDPART.PRG  *************** 

TIM  SEXTON 

enter  parts  and  place  into  PARTS,  assigning 
the  part  to  storage  or  to  a  component  on  file 
None 
None 

PARTS. DBF,  COMPS. DBF 


clear 

set  confirm  on 
set  exact  on 

select  b 
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use  parts  index  c  ser 
select  a 

use  comps  index  composer, name.loc 
do  while  .t. 

blank  =  space(15) 

mmod  =  blank 
ndesc  =  space(50) 
mp_ser  =  blank 
mc_ser  =  blank 

mptype  =  "  " 
mpnum  =  space (10) 

mprice  *  0.00 
mreqn  *  blank 


entering  *  . t. 
still  more  =  .t. 
finished  =  .f. 


@  0,21  say  "  P  A  R  T  ENTRY  SCREEN" 

@  1,0  to  1,79  double 

@3,0  say  "Enter  Part  Informations" 

@  21,0  to  21,79 

do  while  .not.  finished  &&  entering  parts 

do  while  entering  &&  part  information 

@  5,10  say  "models  " 

@  6,7  say  "serial  #:  " 

@  7,4  say  "descriptions  " 

@  22,25  say  "To  EXIT  leave  model  blank" 

*  entries  begin  at  column  18 

c  *  18 

*  enter  model  or  exit 

@  5 ,c  get  mmod  PICTURE  "@N!" 
read 

if  mmod  =  blank 
set  confirm  off 
close  databases 
release  all 
return 
else 

@  22,0  clear  to  23,79 
endif 


ENTRY  SCREEN" 


*  enter  mfg  serial# 

@  6,c  get  mp_ser  PICTURE  "@N!" 
read 


*  enter  description 

@  7 , c  get  mdesc  PICTURE  "@N!" 
read 


*determine  if  stock  or  component  use 
set  confirm  off 
p_use  =  "  " 

@  9,1  say  "designated  uses  " 

@  9,20  say  "(Storage  /  Component)" 
@  9,c  get  p_use  PICTURE  "@1A" 
read 


do  while  .not.  p_use  $"CcSs" 

fuse  *  "  " 

9,c  get  p_use  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 


*  enter  component  serial#  for  use  a  C,  search  to  see  if  on  file 

*  comp_ser  -  blank  for  storage  use 

*  use  comps  for  use  =  C  component  ser  #  mandatory 


storage  use 

if  p_use  =  "S" 
mc_ser  =  blank 
endif 

component  use 

if  p_use  =  "C" 

@  10,0  clear  to  13,79 
d  11,6  say  "Component" 

@  12,6  say  "serial  #:  " 

searched  =  .  f. 
do  while  .not.  searched 
no_ser  =  .t. 
do  while  no  ser 

@  12, c  get  mc_ser  PICTURE  "@!N" 
read 

if  mc_ser  =  blank 
@^2,20  say; 

"component's  serial  #  may  not  be  blank1 
delay  =0 

do  while  delay  <25 
delay  =  delay  +  1 
enddo 

<3  22,0  clear  to  22,79 
else 

no_ser  =  .f. 
endif 

enddo  no  component  serial# 

check  to  see  if  on  file 

select  comps 
set  order  to  1 
goto  top 
on_file  =  .f. 
done  3  .f. 

if  eof9  i  , 

on_file  * 
else 

seek  trim(mc_ser) 
endif 

if  found Q 

searched  3  . t. 
on_file  3  .t. 
done  3  .t. 
endif 

if  .not.  found()  .or.  .not.  on_file 

@  22,22  say  "Component  not  on  file  !!!" 
delay  3  0 

do  wnile  delay  <  25 
delay  3  delay  ♦  1 
enddo 

9  22,0  clear  to  22,79 

set  confirm  off 
ans  3  "  " 

do  while  .not.  ans  $"yYnN" 

ans  3  "  " 

@  22,20  say  "Is  this  the  correct  serial  #? : 

t  23,26  say  "[  Yes  /  No  1" 

22,50  get  ans  picture  "@!A" 
read 
enddo 

9  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  3  "Y" 
entering  3  .f. 
searched  3  .t. 


still_more  =  . f .  . 
done  =  ,t. 

@  22,15  say; 

"This  component  must  be  entered  first" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

@  22,15  say,* 

"Please  re-enter  the  component  serial#" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
mc_ser  =  blank 
endif 

endif  not  found 
enddo  searched 
endif 

if  still_more 

*  enter  property  type  (mandatory) 

set  confirm  off 
@  14,2  say  "property  types  " 

@  14,20  say  "(Plant  /  Minor  /  Other)" 

@  14, c  get  mptype  PICTURE  "@!A" 
read 

do  while  .not.  mptype  $  "mMoOpP" 
mptype  =  "  " 

@  14, c  get  mptype  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 

*  no  property#  for  other  type  property 

if  upper (mptype)  »  "0"  &&  ensure  it  is  blank 

mpnum  =  space (10) 
endif 

*  enter  property#  (mandatory  for  plant  and  minor  property  types) 

if  upper  (mptype)  =  "M"  .or.  upper(mptype)  =  ,fF" 

@15,5  say  ''property  #s  " 
no_num  *  . t . 
do  while  no_num 

@  15, c  get  mpnum  PICTURE  "@N!" 
read 

if  mpnum  =  space (10) 

@  22,12  say  "Minor  and  Plant  property  "+; 

"require  a  property  number  " 

delay  =  0 

do  while  delay  <  25 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_num  =  . f , 
endif 
enddo 
endif 

*  enter  price  and  requisition# 

@  17,10  say  "prices  $" 

@  18,9  say  "reqn  #:  " 

@  17, c  get  mprice  PICTURE  "@R  9,999.99" 

@  18, c  get  mreqn  PICTURE  "@!R  9999-NNNN/NNNNN" 

read 
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*  allow  editing  or  abandon  current  entry 

9  22,0  clear  to  23,79 

9  22,20  say  "Is  the  above  information  correct?: 
9  23,26  say  "[  Yes  /  No  /  Abandon  ]" 

set  confirm  off 
ans  =  "  11 

do  while  .not.  ans  S  "yYnNaA" 
ans  =  "  " 

9  22,54  get  ans  picture  "9! A" 
read 
enddo 

9  22,15  clear  to  23,79 
set  confirm  on 

*  clear  mvar  that  controls  creating  a  new  owner  or  home  record 

if  upper(ans)  =  "N" 

9  9,0  clear  to  20,79 
endif 

*  abandon  entry  ->  clear  mvar  and  close  any  open  dbf 

if  upper (ans)  =  "A" 
set  confirm  off 
close  databases 
release  all 
return 
endif 


*  place  entry  into  dbf 

if  upper (ans)  =  "Y" 
entering  3  .f. 


&&  add  mvar  to  dbf 


*  place  in  parts 


9  22,10  say; 

"  standby  while  your  entry  is  placed  on  file 
select  parts 


select  parts 
append  blank 

replace  p_model  with  trim(mmod) 
replace  p_desc  with  trim(mdesc) 
replace  part_ser  with  tnm(mp_ser) 
replace  comp  ser  with  trim(mc_ser) 
replace  p_ptype  with  mptype 
replace  p_pnum  with  tnm(mpnum) 
replace  p_price  with  mprice 
replace  p_reqn  with  trim(mreqn) 
endif 

endif  still  more 
enddo  entering 
9  22,0  clear  to  23,79 

9  22,15  say  "Do  you  have  additional  parts  to  enter?! 
9  23,26  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  3  "  " 

9  22,54  get  ans 
read 
enddo 

if  upper (ans)  3  "N" 
finished  3  .t. 
clear 


9  22,0  clear  to  23,79 
entering  3  .t. 
stilljnore  3  .t. 

mmod  3  blank 
mdesc  3  space (50) 


&&  set  up  for  the  next  one 


vlviv.v.vy. 
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mp_ser  =  blank 

mptype  *  "  " 
mpnum  =  space (10) 

mprice  =  0.00 
mreqn  *  blank 


@  22,0  clear  to  23,79 
if  upper(p  use)  =  "C“ 

@  22,15  say  "Is  the  next  part  for  the  same  component?: 
@  23,26  say  "[  Yes  /  No  ]* 

ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,56  get  ans 
read 
enddo 

set  confirm  on 
0  22,0  clear  to  23,79 

if  upper (ans)  =  "N" 
mc_ser  =  blank 
endif 

endif  p_use  =  C 
endif  set  up 
@4,0  clear  to  20,79 
enddo  finished 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  addpart.prg 


4.  ADD_HELP.PRG 

*********************  Program:  ADD  HELP.PRG  ****************** 
’'Author . :  TIM  SEXTON 

^Purpose . describes  the  options  available  to  the 

*  user 

*Calls . .  None 

* 

*Input/Output  Files.:  None 

*  begin  the  text  dialogue 
clear 

@0,17  say  "ENTER  PROPERTY  HELP  MENU" 

@  1,0  to  1,79  double 
text 

*  Designed  to  enable  the  user  to  enter  all  new 
Property  either  a  Component  or  Part. 

*  Entering  selection  is  extremely  important!!! 
Ensure  all  the  information  is  correct. 

*  If  errors  are  made,  the  user  should  ensure  that 
"NO"  or  "ABANDON  options  are  selected  before 
continuing  on. 

*  If  a  false  record  is  filed  by  mistake  then 
GOTO  the  "MODIFY  or  DELETE"  section  and  follow 
the  instructions  to  correct  the  mistake. 

endtext 
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asss&al 


a 


.0 


a 


a 


0  21,0  TO  21,79 

WAIT  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 
clear 

0  1,0  to  1,79  double 
text 


"CAUTIONS" 

*  Extremely  important  that  all  information  is 

entered  correctly 

*  Mistakes  will  be  made  so  utilize  the  "NO"  or 

"ABANDON"  commands  before  resuming 

*  Recommend  using  DELETION  and  ARROW  keys  for 
modifying  data  entered  so  not  to  deviate 
outside  designated  fields 

endtext 

0  21,0  TO  21,79 

WAIT  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 
clear 

0  1,0  to  1,79  double 
text 


"WARNINGS" 

*  Use  of  BACKSPACE  key  can  cause  PREMATURE  exiting 
of  an  entry  field,  loop  back  for  re-entrance  of 
data. 

*  Serial  Numbers  must  be  accurate  and  precise 

endtext 

0  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 

*E0F  ADD_HELP . PRG 


ADHOC.PRG 


********************* 

* 

^Author . . 

^Purpose . . 

*Calls . . 

* 


Program:  ADHOC.PRG  *********************** 


*Input/Output  Files.: 


TIM  SEXTON 

display  the  menu  for  queries  and  lists 
SLOCATION.PRG,  SOWNER.PRG,  OWNERS. PRG 
PMOD.PRG,  PMANF.PRG 
None 


do  while  .t. 

*  re-set  the  system  incase  a  user  ESCaped  out  of  one  of  the 

*  program  selections 

release  all 
close  databases 
set  confirm  off 
clear 


*  display  the  menu 


0  2,10  to  17,69  double 


*  #  *W  WV  *  •  ,  V  W  VIVMMAC 

3,19  say  "  List  and  Searh  Menu" 

4,11  to  4,68  double 


6,21  say  "  1  -  Components  assigned  to  a  Custodian" 

^  .  >4.  It  »*V  A  _ _ Z _ _  _ _ 2  t _ •  -  I  > 


0  7,21  say  "  2  -  Components  assigned  by  Locations" 
0  8,21  say  "  3  -  Custodian  Listing" 


0  10,21  say  "  4  -  Components  of  a  single  Manufacturer" 
0  11,21  say  "  5  -  Components  of  a  single  Model" 


*  X  XX 


9  13,21  say  "  H  -  HELP" 

9  15,21  say  "  0  -  Return  to  MAIN  MENU" 

9  17,30  say  "  selection  :  :  " 

choice  =  "  " 

9  17,42  get  choice 
read 

place  an  asterisks  next  to  a  valid  choice  and  erase  the  other 
selections 

if  choice  S"hH012345" 
do  case 

case  upper (choice)  =  "H" 

9  13,20  say  '<*" 
choicerow  =  13 

case  choice  =  "0" 

9  15,20  say 
choicerow  =  15 

case  choice  $"123" 

9  5+val(choice) , 20  say 
choicerow  =  5+val(choice) 

otherwise 

9  6+val(choice) ,20  say 
choicerow  =  6+val(choice) 

endcase 

firstrow  =  6 
rows  =  10 
rowcnt  =  0 

do  while  rowcnt  <  rows 

if  rowcnt+firstrow  <>  choicerow 

9  firstrow+rowcnt,l?  say  space (50) 
endif 

rowcnt  =  rowcnt  +  1 
enddo 
endif 

do  the  choice  selection  if  valid  or  loop  back  thru  this 
program 

do  case 

case  choice  -  "0" 
clear 

release  all 
return 

case  choice  =  "1" 
do  s owner 
case  choice  *  "2" 
do  slocation 
case  choice  *  "3" 
do  owners 
case  choice  ■  "4" 
do  pmanf 

case  choice  =  "5" 
do  pmod 

case  upper(choice)  =  "H" 
do  qry_help 
otherwise 

9  19,22  say  "******  not  a  valid  selection  ******" 
wait 

9  19,0  clear  to  21,79 
loop 

endcase 
enddo 

*E0F  ADHOC.PRG 
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>v* 


6.  DELCOMP.PRG 


******************** 

*Author . 

^Purpose . 

*Calls . 

*Reserved . 

*Input/Output  Files. 


Programs  DELCOMP.PRG  *************** 

TIM  SEXTON 

delete  components  and  place  plant  or  minor 

property  in  history 

None 

None 

PARTS. DBF,  COMPS. DBF,  HISTORY. DBF, 

OWNERS. DBF,  HOMES. DBF 


clear 

set  confirm  on 

select  e 
use  history 
select  d 

use  parts  index  c_ser  &&  indexed  on  comp_ser 
select  c 

use  homes  index  l_fnames  &&  indexed  on  last, first  names 
select  b 

use  owners  index  names  &&  indexed  on  last, first  names 
select  a 

use  comps  index  comp  ser,name_loc  &&  indexed  on  comp  ser 

&&  indexed  on  last, first  names 

do  while  .t. 

blank  =  space (15) 

mmfg  =  blank 
mmoa  =  blank 
mser  =  blank 
mloc  code  =  "  " 

—  * 

mptype  =  "  " 
mpnum  =  space (10) 

mtoday  =  date(  ) 

lname  *  blank 
fname  =  blank 
mpart_ser  =  blank 

entering  *  .t. 
finished  =  .f. 

delcomp  =  ,f. 
delpart  =  .f. 

@0,16  say  "COMPONENT  DELETION  SCREEN" 

@  1,0  to  1,79  double 
@3,0  say  "Enter  Component" 

@  21,0  to  21,79 

do  while  .not.  finished  &&  deleting  a  component 

do  while  entering  &&  componenet  information 

*  entries  begin  at  column  18 

c  =  18 

searched  =  . f . 
do  while  .not.  searched 

*  enter  serial  #  or  exit 

@  2,56  say  "date:  " 

@  2,61  say  mtoday 

@  4,7  say  "serial  #:  " 

@  4,c  get  mser  PICTURE  "@N!" 

@  22,25  say  "To  EXIT  leave  serial  #  blank" 

read 

if  mser  *  blank 
close  databases 
release  all 


**+ 


return 

else 

@  22,0  clear  to  23,79 
endif 

*  check  to  see  if  on  file 
select  coraps 
set  order  to  1 
goto  top 
on_file  =  .f. 
correct  =  .f. 


if  .not.  eof() 
set  exact  on 
seek  trim(mser) 
else 

on_file  =  . f. 
correct  =  .f. 
endif 


if  found( ) 

correct  =  .t. 
mraod  =  c_model 
mmfg  =  c_mfg 
mptype  =  c_ptype 
mpnum  =  c  _pnum 
lname  =  last_name 
fname  =  first_name 
mloc_code  =  loc_code 


@  6,0  clear  to  10,79 

@6,12  say  "mfg:  " 

@  6,c  say  c_mrg 

@7,10  say  "model:  " 

@  7,c  say  c_model 
@  8,4  say  "description:  " 

@  8,c  say  c_desc 

@9,2  say  "property  type:  " 

do  case 

case  c  Dtype  =  "P" 

@  $7c  say  "Plant" 
case  cotype  =  "H" 

@  9,c  say  "Minor" 
otherwise 

@  9,c  say  "Other" 

endcase 

if  c  Dtype  =  "M"  .or.  c_ptype  = 
(9  10,5  say  "property  #:  " 

@  10, c  say  c_pnum 
endif 


lipil 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,22  say  "Is  this  the  correct  component?:  :" 

@  23,29  say  "[  Yes  /  No  1" 

@  22,53  get  ans  picture  "@!A" 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  upper(ans)  =  "Y" 
on_file  =  .t. 
searched  =  .t. 
else 

on_file  = . f . 
correct  =.t. 

@  22,11  say  "The  component  shown  is  the  only 

"one  on  file  with  this  se'rial  #" 

delay  =  0 

do  while  delay  <  40 
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delay  =  delay  +  1  -  - 
enddo 

@  22,0  clear  to  22,79 

@  22,13  say  "Your  component  is  not  on  "+• 

"file  no  need  to  delete  it" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
endif 

endif  found 


if  .not.  found()  .or.  .not.  correct 

@  22,26  say  "Component  not  on  file  !!!" 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,22  say  "Is  this  the  correct  serial  #? : 
@  23,28  say  "[  Yes  /  No  1" 

@  22,52  get  ans  picture 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 


: " 


if  upper (ans)  *  "Y" 
correct  =  .t. 
on  file  =  .f. 

@  22,15  say  "Your  component  is  not  on  file"+; 

"  no  need  to  delete  it" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

0  22,0  clear  to  22,79 
else 

correct  =  .f. 

@  22,20  say; 

"Please  re-enter  the  component  serial  #  or" 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
mser  =  blank 
endif 

endif  not  found 

if  .not.  on  file  .and.  correct 
@  22,15  say,* 

"Do  you  have  additional  components  to  delete?: 

@  23,29  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,60  get  ans 
read 
enddo 

set  confirm  on 

if  upper (ans)  =  "N" 
set  confirm  off 
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release  all 
close  databases 
return 
else 

mser  =  blank 
correct  =  .f. 

@  6,0  clear  to  10,79 
(?  22,0  clear  to  23,79 
endif 


endif  not  on  file  and  done 
enddo  searched 


check  to  see  parts  are  on  file  for  this  component 
select  parts 
goto  top 

if  eof() 

delpart  =  .f. 
delcomp  =  .t. 
else 

set  exact  on 
seek  trim(mser)  &&  component  serial  # 
endif 


if  .not.  found() 
delpart  =.f. 
delcomp  =  .t. 
endif  not  found 


&&  no  parts  for  this  component 


if  foundQ 
@  12,5  sa 


@  12,5  say; 

"The  following  PART(S)  are  on  file  for  this  component:" 


"The  following  FART(5;  are  on  tile  tor  this  compc 
@14,5  say  "Model" 

@  14,18  say  "Property  Type" 

@  14,36  say  "Property  #" 
line  =15 

do  while  comp_ser  =  mser  .and.  .not.  eof() 

@  line ,5  say  p_model 
@  line, 23  say  p_ptype 
@  line, 36  say  p_pnum 
skip 

line  =  line  +  1 
if  line  =  20 

@  22,23  say  "Additional  parts  are  on  file" 
delay  =  0 

do  while  delay  <  50 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
@  15,0  clear  to  19,79 
line  =15 
endif 
enddo 


@  22,0  clear  to  23,79 

@  22,19  say  "Do  you  wish  to  delete  the  PART(S)?: 


@  23,26  say  "t  Yes  /  No  ]" 
set  confirm  off 


ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,54  get  ans 
read 
enddo 

set  confirm  on 


if  upper(ans)  =  "N" 
@  22.0  clear  to 


@  22,0  clear  to  23,79 

@  22,5  say  "The  PART(S)  must  be  reassigned"+; 

"  before  this  component  can  be  deleted" 

delay  =  0 

do  while  delay  <  40 


H 


delay  =  delay  +1 
enddo 

9  22,0  clear  to  22,79 
9  22,16  say,- 

"Do  you  have  additional  components  to  delete?: 

9  23,29  say  "[  Yes  /  No  ] " 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

9  22,61  get  ans 
read 
enddo 

set  confirm  on 

if  upper (ans)  =  "N" 
set  confirm  off 
release  all 
close  databases 
return 
else 

mser  *  blank 
9  22,0  clear  to  23,79 
9  4,0  clear  to  20,79 
endif 

else  &&  ans  *  yes 

delpart  =  .t. 
delcomp  =  .t. 

9  22,0  clear  to  23,79 
endif 

endif  found 
if  delcomp 

*  allow  editing  or  abandon  current  entry 

9  22,0  clear  to  23,79 

@  22,16  say  "Do  you  wish  to  delete  this  component?:  :" 

9  23,26  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnNaA" 
ans  =  "  " 

9  22,54  get  ans  picture  "9!  A" 
read 
enddo 

9  22,15  clear  to  23,79 
set  confirm  on 

*  clear  mvar  that  controls  deleting  a  component  or  part  record 

if  upper(ans)  =  "N" 

(3  22,20  say  "Please  re-enter  a  component  serial  #  or" 
delay  *  0 

do  while  delay  <  40 
delay  *  delay  +  1 
enddo 

9  22,0  clear  to  22,79 

mser  -  blank 
delcomp  =  .f. 
delpart  =  . f. 

9  9,0  clear  to  20,79 
9  4,0  clear  to  20,79 
endif 


if  upper (ans)  =  "Y" 
entering  =  .f. 

9  22,0  clear  to  23,79 
endif 

endif  delcomp 


&&  delete  records 


enddo  entering 

@  22,20  say  "  Standby  while  the  component  is  deleted  " 
if  delcomp 

select  comps 
goto  top 
set  exact  on 

delete  for  comp_ser  *  trim(mser) 

select  history 
append  blank 

replace  mfq  with  trim(mmfg) 
replace  model  with  tnm(mmod) 
replace  serial_num  with  trim(mser) 
replace  ptype  with  mptype 
replace  pnum  with  trim(mpnum) 
replace  del_date  with  mtoday 

endif  delcomp 
if  delpart 

select  parts 
goto  top 
set  exact  on 
seek  trim(mser) 


if  found() 

do  while  mser  =  trim(comp_ser) 
mpart_ser  =  part_ser 
mmod  =  p_model 
mptype  =  p_ptype 
mpnum  -  p_pnum 


.and.  .not.  eof() 


if  upper(mptype)  <>  "0"  &&  only  plant  or  minor 

select  history 
append  blank 

replace  model  with  trim(mmod) 
replace  serial_num  with  trim(mpart_ser) 
replace  ptype  with  mptype 
replace  pnum  with  trim(mpnum) 
replace  del_date  with  mtoday 
endif 


skip 

enddo 

endif 


select  parts 
goto  top 
set  exact  on 

delete  all  for  comp_ser  *  trim(mser) 
endif  delpart 

*  check  to  see  if  owner  has  more  property  on  file 
select  comps 
set  order  to  2 
goto  top 

if  eof() 

delowner  =  .t. 
delhome  -  .  t. 
else 

set  exact  off 

seek  trim(lname) ,trim(fname) 
endif 

if  .not.  found() 
delowner  =  ,t. 
delhome  =  .t. 
endif  not  found 

if  found() 

delowner  =  .t. 
delhome  =  .t. 
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do  while  last_name  =  trimflname)  -.and.; 

first_name  *  trim(fname)  .and.  .not.  eof() 
do  case 

case  upper (loc_code)  3  "H" 
delnome  3  .  f. 
delowner  3  .  f. 

case  upper (loc_code)  =  "0" 
delowner  =  .  f. 

endcase 

skip 

enddo 

endif  found 

*  no  need  to  delete  AS  DEPT  (labs  or  storage) 
if  mloc_code  3  "L"  .or.  mloc_code  3  "S" 
delhome  3  .f. 
delowner  3  .f. 
endif 

if  delowner 

select  owners 
set  exact  off 
goto  top 

delete  for  last_name  =  trim(lname)  .and.; 

first_name  3  trim(fname) 

endif 

if  delhome  .and.  mloc_code  3  "H" 
select  homes 
goto  top 
set  exact  off 

delete  for  last_name  3  trim(lname)  .and.; 

first_name  3  trim(fname) 

select  owners 
set  exact  off 
goto  top 

delete  for  last_name  3  trim(lname)  .and.; 

first  name  3  trim(fname)  .and.  location  3  "HOME" 

endif 

9  22,0  clear  to  23,79 

9  22,16  say  "Do  you  have  additional  components  to  delete?: 

9  23,26  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  3  "  “ 

do  while  .not.  ans  S  "yYnN" 
ans  3  11  " 

9  22,61  get  ans 
read 
enddo 

if  upper (ans)  3  "N" 
tmisned  3  ,t. 
clear 

else  &&  set  up  for  the  next  one 

9  22,0  clear  to  23,79 

mmfg  3  blank 
mmoa  3  blank 
mser  3  blank 
mloc_code  3  "  " 

mptype  3  "  " 
mpnum  3  space (10) 

mtoday  3  date(  ) 

lname  3  blank 
fname  3  blank 
mpart_ser  3  blank 

entering  3  .t. 


finished  =  .f. 
endif  set  up 
@  4,0  clear  to  20,79 
enddo  finished 

@8,15  say  "*****  Standby  while  the  files  are  updated  *****" 

select  comps 
pack 

select  parts 
pack 

select  owners 
pack 

select  homes 
pack 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  delcomp.prg 


7.  DELMENU.PRG 

*********************  Program:  DELMENU.PRG  ******************* 


*  Author .  TIM  SEXTON 

*Purpose . .  displays  the  choice  to  delete  parts 

*  or  components,  and  place  them  m  the  history 

*Calls . .  DELCOMP.PRG,  DELPART.PRG 

X 


*Input/Output  Files.:  None 

*  set  up  the  screen  environment 
clear 

set  confirm  off 

*  begin  the  menu  dialogue 
do  while  .t. 

clear 

@  2,10  to  13,69  double 
@  3,30  say  "Delete  Property  Menu" 

@  4,11  to  4,68  double 

@  6,27  say  "  1  •  COMPONENT  deletion" 

@  7,27  say  "  2  -  PART  deletion" 

@  9,27  say  "  H  -  HELP" 

@  11,27  say  "  0  -  RETURN  to  main  menu" 

@  13,30  say  "  selection  :  :  " 

choice  =  "  " 

9  13,42  get  choice 
read 

*  place  an  asterisks  next  to  a  valid  choice,  and  erase  the  other 

*  rows 

if  choice  S  "hH012" 
do  case 

case  upper(choice)  =  "H" 

@  9,26  say 
choicerow  =  9 
case  choice  =  "0" 

@  11,26  say 
choicerow  *  11 


otherwise 

@  5+val(choice) ,26  say 
choicerow  =  5+val(choice) 

endcase 

firstrow  *  6 
rows  =  7 
rowcnt  =  0 

do  while  rowcnt  <  rows 

if  rowcnt+firstrow  <>  choicerow 

@  firstrow+rowcnt , 27  say  space(25) 
endif 

rowcnt  =  rowcnt  +  1 
enddo 
endif 

*  do  a  valid  choice  or  loop  back  thru  this  program 

do  case 

case  choice  *  "0" 
return 

case  choice  *  “1" 
do  del comp 
case  choice  =  "2" 
do  delpart 

case  upper (choice)  =  "H" 
do  del_help.prg 
otherwise 

@  17,22  say  "******  not  a  valid  selection  ******" 

wait 

loop 

endcase 

enddo 

*  EOF  DELMENU . PRG 


8.  DELPART.PRG 

********************  Program:  DELPART.PRG  *************** 

^Author .  TIM  SEXTON 

*Purpose . .  delete  parts  and  place  plant  or  minor  property 

*  in  history 

*Calls . .  None 

*Reserved . .  None 

*Input/0utput  Files. :  PARTS. DBF,  HISTORY. DBF 

clear 

set  confirm  on 
set  exact  on 

select  c 
use  history 
select  b 

use  parts  index  c_ser  &&  indexed  on  comp_ser 
select  a 

use  comps  index  composer ,name_loc  &&  indexed  on  compser 

&&  indexed  on  last, first  names 

do  while  .t. 

usage  =  "  " 
blank  =  space(15) 

mmod  =  blank 
description  =  space(50) 
mpart_ser  =  blank 
mptype  =  "  " 
mpnum  -  space (10) 

component  =  blank 


ft 


t- 


mtoday  *  date(  ) 

mc_mod  =  blank 
mc_mfg  =  blank 
mc_desc  =  space (50) 
mc_ptype  =  "  " 
mcjpnum  =  space(lO) 
lname  =  blank 
fname  =  blank 

entering  =  . t. 
finished  =  .f. 
delete_it  =  .f. 

@0,20  say  "PART  DELETION  SCREEN" 

@  1,0  to  1,79  double 

@  21,0  to  21,79 

do  while  .not.  finished  &&  deleting  parts 

entering  =  . t. 

do  while  entering  &&  part  information 

find  use  =  .t. 
do  while  find_use 

located  =  .f. 

*  entries  begin  at  column  18 

c  =  18 

@  3,0  clear  to  20,79 
@  2,56  say  "date:  " 

@  2,61  say  mtoday 
@3,0  say  ftEnter  fart" 

*  enter  use  or  exit 

@  4,2  say  "current  usage:  " 

@  4,20  say  "(Storage  /  component)" 

set  confirm  off 

@  4 , c  get  usage  picture  "@N!" 

@  22,25  say  "To  EXIT  leave  current  usage  blank" 
read 

do  while  .not.  usage  $  "  sScC" 
usage  =  "  " 

@  4 , c  get  usage  picture  "@N!" 
read 
enddo 

set  confirm  on 

if  usage  *  "  " 

set  confirm  off 
close  databases 
release  all 
return 
else 

@  22,0  clear  to  23,79 
endif 

if  upper(usage)  =  "S" 

@  3,0  clear  to  20,79 

locating  =  .f. 
located  =  .t. 
component  *  blank 
find_use  =  .f. 
endif 

if  upper(usage)  *  "C" 

@  4,0  clear  to  20,79 

@3,0  say  "Enter  Component" 

@  4,8  say  "serial#:  " 
locating  *  .t. 
endif 
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on_file  =  . t . 
sought  =  .f. 

do  while  locating 

@  4,c  get  component  picture 
@  22,0  clear  to  23,79 
@  22,16  say,- 

"To  ABANDON  component  entry  leave  serial  #  blank" 
read 


‘@N! " 


V 


if  component  =  blank 
locating  =  .f. 
usage  =  "  " 

@  22,0  clear  to  23,79 
else 

@  22,0  clear  to  23,79 
*  check  to  see  if  component  on  file 

select  comps 
set  order  to  1 
goto  top 
endif 


if  .not.  eof(> 

seek  trim(component) 
sought  =  .t. 
else 

on_file  =  .f. 
endif 

if  foundQ  .and.  sought 
mc_mod  =  c_model 
mc_mfg  =  c_mfg 
mc_ptype  =  c_ptype 
mc_pnum  =  c_pnum 
lname  =  last_name 
fname  =  first_name 
@  6,0  clear  to  10,79 
@6,12  say  "mfa:  " 
say  cjmfg 
say  "models  " 
say  cmodel 
say  "description: 
say  c_desc 
say  "property  type 


@  6,c 
@7,10 
@  7  ,c 
@  8,4 
@  8,c 
@  9,2 
do  case 

case  cptype  =  "P" 

@  $Tc  say  "Plant" 
case  c_p type  =  "H" 

@  $Tc  say  "Minor" 
otherwise 

@  9,c  say  "Other" 

endcase 

if  c  Dtype  =  "M"  .or.  cjptype  =  "P" 

(Flu , 5  say  "property  #:  " 

@  10, c  say  c_pnum 
endif 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,0  clear  to  23,79 

@  22,22  say  "Is  this  the  correct  component?: 
@  23,29  say  "[  Yes  /  No  1" 

@  22,53  get  ans  picture 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  upper (ans)  =  "Y" 
locating  *  .f. 


'@!A" 


located  3  .t. 
find_use  3  .f. 
else 


(3  22,11  say  "The  component  shown  is  the  only 

"one  on  file  with  this  serial  #" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
er.ddo 

@  22,0  clear  to  22,79 
d  22,13  say  "Check  the  component"*-; 

"  serial  #,  part  usage,  or" 

locating  =  .  f . 
usage  =  "  " 
component3  blank 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

i?  22,0  clear  to  22,79 
endif 


endif  found 


if  (.not.  found{)  .or.  .not.  on_file)  .and.  locating 
@  22,0  clear  to  23,79 
d  22,26  say  "Component  not  on  file  !!!" 
delay  =  0 

do  while  delay  <  40 
delay  3  delay  +  1 
enddo 

d  22,0  clear  to  22,79 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

d  22,22  say  "Is  this  the  correct  serial  #? 
@  23,28  say  "[  Yes  /  No  1" 
d  22,52  get  ans  picture  r'@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 


. 


if  upper(ans)  3  "Y" 

@  22,18  say  "Check  the  component"*-; 

"  serial  #,  part  usage,  or" 

delay  =  0 

do  while  delay  <  40 
delay  *  delay  +  1 
enddo 

d  22,0  clear  to  22,79 

usage  3  "  " 
component3  blank 
locating  =  .f. 
else 

d  22,20  say  "Please  re-enter  "+; 

"the  component  serial  #  or" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

component  3  blank 
d  22,0  clear  to  22,79 
endif 

endif  not  found 
enddo  locating 
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enddo  find_use 
checking  3  .t. 

do  while  checking  .and.  located 

delete_it  =  .  f. 

@  3,0  clear  to  20,79 

@3,0  say  "Fill  in  if  known:" 

@4,5  say  "Part  model:  " 

@  4,c  get  mmod  picture  "@N!" 
read 

@  5,7  say  "serial  #:  " 

@  5,c  get  mpart_ser  picture  "@N!" 
read 

set  confirm  off 

@  6,10  say  "ptype:  (Plant/Minor/Other)" 

@  6,c  get  mptype  picture  "@N!" 
read 

do  while  .not.  mptype  $  "  oOmMpP" 
mptype  3  "  " 

@  6,c  get  mptype  picture  "@N!" 
read 
enddo 

set  confirm  on 

@7,5  say  "property  #:  " 

@  7,c  get  mpnum  picture  "@N!" 
read 

rec  =  -1 
more  =  .f. 
select  parts 

goto  top  * 

done  3  .f. 

aa  3  .f. 

bb  *  • f . 

cc  *  .f. 

dd  3  .f. 

ee  *  .f. 

if  mpart  ser  <>  blank  .and.  .not.  done 
aa  =  .t. 
done  =  . t . 

locate  for  part_ser  *  trim(mpart_ser)  .and.; 

comp  ser  3  trim( component) 

if  foundO 

rec  =  recno() 
endif 
endif 

if  mmod  <>  blank  .and.  .not.  done 
bb  =  .t. 
done  *  .t. 

locate  for  p  model  3  trim(mmod)  .and.; 

comp_ser  3  trim (component) 

if  found( ) 

rec  =  recnoO 
continue 
if  found( ) 
more  3  .t. 
endif 
endif 

endif 

if  mptype  <>  "  "  .and.  .not.  done 
cc  *  .t. 
done  3  .t. 

locate  for  pjptype  3  mptype  .and.; 

comp_ser  3  trim (component) 

if  found() 
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rec  =  recno() 
continue 
if  four.d() 
more  =  ,t. 
endif 
endif 

endif 

if  mjonum  <>  space (10)  .and.  .not.  done 
done  =  . t. 

locate  for  p_pnum  =  trim(mpnum)  .and.; 

comp_ser  =  trim(component) 

if  found( ) 

rec  =  recno() 
continue 
if  found() 

more  =  .t. 
endif 
endif 

endif 

if  .not.  done 
ee  =  .t. 
done  =  . t . 

locate  for  comp_ser  =  trim(component) 
if  found() 

rec  =  recno() 
continue 


endif 

endif 

do  case 


if  found() 
more  = 
endif 


=  .  t. 


case  rec  <>  -1  .and.  .not.  more 
goto  record  rec 
@  3,0  clear  to  20,79 
@3,0  say  "Only  one  part  on  file:" 

@5,10  say  "model:  " 

@  5,c  say  p_model 

@6,4  say  "description:  " 

@  6,c  say  p_desc 

@7,2  say  "property  type:  " 

do  case 

case  p  otype  =  "P" 

@  T7c  say  "Plant" 
case  pjotype  =  "M" 

@  T;c  say  "Minor" 
otherwise 

@  7,c  say  "Other" 

endcase 

if  p  Dtype  =  "M"  .or.  p_ptype  =  "P" 
(?  8,5  say  "property  #:  " 

@  8,c  say  p_pnum 
endif 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,26  say  "Is  this  the  correct  part 
@  23,32  say  "[  Yes  /  No  ]" 

@  22,5 2  get  ans  picture  "@!A" 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 


*exit  checking 


if  upper (ans)  =  "N"  ' 

@  22,16  say  "Your  PART  cannot  be  found,  and"+; 

11  may  not  be  on  file" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 

component  =  blank 
usage  =  "  " 
checking  =  .f. 

else  &&  ans  =  yes 

delete_it  =  .t. 
checking  *  .f. 

@  22,0  clear  to  23,79 
endif 
endif  ans 


case  rec  =  -1 

@  22,16  say  "Your  PART  cannot  be  found,  and"+; 

"  may  not  be  on  file 

delay  =  0 

do  while  delay  <  40 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
component  *  blank 
usage  *  "  " 
checking  =  .f. 

case  rec  <>  -1  .and.  more 
goto  record  rec 
stilljnore  *  .t. 
correct  =  .f. 

@  3,0  clear  to  20,79 

@3,0  say  "More  than  one  part  on  file:" 

@  4,0  say  "  (select  the  correct  part)" 

do  while  still_more 
@  5,c  clear  to  9,79 

@6,10  say  "model:  " 

@  6,c  say  p  model 

@7,4  say  “description:  " 

@  7 ,c  say  p  desc 

@8,2  say  ’’property  type:  " 

do  case 

case  p  Dtype  =  "P" 

@  o, c  say  "Plant" 
case  p  Dtype  =  "M" 

@  87c  say  "Minor" 
otherwise 

@  8,c  say  "Other" 

endcase 

if  p_ptype  =  "M"  .or.  p_ptype  =  "P" 

@9,5  say  "property  #:  " 

@  9,c  say  p_pnum 
endif 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"aAyYnN" 
ans  =  "  " 

@  22,26  say  "Is  this  the  correct  part?:  :" 

@  23,26  say  "[  Yes  /  Mo  /  Abandon  ]" 

@  22,52  get  ans  picture  "@!A" 
read 


J  •» 


enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  upper(ans)  =  "A" 
correct  =  .t. 
still_more  =  . f. 
component  =  blank 
usage  =  "  " 
checking  =  .f. 
endif 

if  eof() 

still^more  =  .f. 
checking  =  .f. 
endif 

if  upper(ans)  =  "N“  .and.  .not.  eof() 
skip 
do  case 
case  aa 

if  part_ser  =  trim(mpart_ser )  .and.; 

comp_ser  =  trim( component ) 
rec  =  recno() 
rec  =  recno() 
else 

still  more  =  .f. 
endif 

case  bb 

if  p_model  =  trim(mmod)  .and.; 

comp_ser  =  trim (component) 
rec  =  recno() 
else 

still_more  =  .f. 

endif  * 

case  cc 

if  p_ptype  =  mptype  .and.; 

comp_ser  =  trim( component) 

rec  =  recno() 
else 

still_more  =  .f. 
endif 

case  dd 

if  pjpnum  =  trim(mpnum)  .and.; 

comp_ser  =  trim (component) 
rec  -  recno() 
else 

still_more  =  .f. 
endif 

case  ee 

if  comp_ser  =  trim(component) 
rec  =  recno() 
else 

still_more  =  .f. 
endif 


endcase 

endif 

if  upper(ans)  =  "Y"  .and.  .not.  eof() 
delete_it  =  .t. 
correct  =  .t. 
still_more  =  .f. 
checking  =  .f. 
endif 

enddo  still_more 

if  .not.  correct  .and.  .not.  still  more 
@  3,0  clear  to  11,79 

22,16  say  "Your  PART  cannot  be  found,  and"+; 

67 


V  V 


V  V  V  V  V  V  V  V 


11  may  not  be  on  file" 

delay  =  0 

do  while  delay  <  50 
delay  =  delay  +  1 
enddo 

(5  22,0  clear  to  22,79 
component  =  blank 
usage  =  11  " 
checking  =  .f. 
endif 


endcase 

enddo  checking 


if  delete_it 

@  22,19  say  "Do  you  wish  to  delete  this  PART?: 
<a  23,26  say  "f  Yes  /  No  ]" 
set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,52  get  ans 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  upper (ans)  =  "N" 
delete_it  =  .  f. 
endif 
endif 


if  located  .and.  .not.  delete_.it 

@  22,16  say  "Do  you  have  additional  parts  to  delete?:  :" 
@  23,26  say  "[  Yes  /  No  ]" 


set  confirm  off 
ans  -  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,56  get  ans 
read 
enddo 

set  confirm  on 


if  upper  (ans.)  =  "N" 
set  confirm  off 
release  all 
close  databases 
return 
else 

component  =  blank 
usage  =  "  " 

@  22,0  clear  to  23,79 
endif 

endif 

if  delete_it 

@  22,23  say  "  Standby  while  the  part  is  deleted  " 

select  parts 
goto  rec 

mptype  =  p_ptype 

if  upper (mptype)  =  "P"  .or.  upper (mptype)  *  "M" 
select  history 
append  blank 

replace  model  with  trim(mmod) 
replace  serial_num  with  trim(mpart_ser) 
replace  ptype  with  mptype 
replace  pnum  with  trim(mpnum) 
replace  del_date  with  mtoday 


.'a*. 


select  parts 
delete 

0  22,0  clear  to  23,79 

@  22,16  say  "Do  you  have  additional  parts  to  delete?: 
@  23,26  say  "[  Yes  /  Mo  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,61  get  ans 
read 
enddo 


if  upper (ans)  =  "N" 
entering  =  .f. 
finished  =  .t. 

else 

@  22,0  clear  to  23,79 
usage  =  "  11 

mmod  =  blank 
description  =  space(50) 
mpart_ser  =  blank 
mptype  =  "  " 
mpnum  =  space (10) 

component  =  blank 
mtoday  =  date(  ) 

mc_mod  =  blank 
mc_mfg  =  blank 
mc_desc  =  space(50) 
mc_ptype  =  "  " 
mc_pnum  =  space (10) 
lname  =  blank 
fname  =  blank 

entering  =  .t. 
delete_it  =  .£. 

@  4,0  clear  to  20,79 
endif  set  up 
endif  delete  it 


&&  set  up  for  the  next  one 


enddo  entering 
@8,15  say; 

H  ***** 

select  parts 
pack 

enddo  finished 

set  confirm  off 
release  all 
close  databases 
return 

enddo 

*  EOF  delpart.prg 


DEL  HELP.PRG 


Standby  while  the  files  are  updated 


*********************  Program:  DEL  HLP.PRG  ****************** 

*  Author .  TIM  SEXTON 

^Purpose . .  describes  the  options  available  to  the 

*  user 


*Input/Output  Files.;  None 


*  begin  the  text  dialogue 
clear 

@  1,0  to  1,79  double 

@0,16  say  "DELETE  PROPERTY  HELP  MENU" 
text 


*  Deletions  are  made  by  either  Component  Serial  # 
or  by  Part 

*  Correct  serial  number  must  be  known,  when 

requested,  components  are  deleted  by  serial  # 

*  When  deleting  a  component,  any  parts  assigned  to 

that  component  must  be  deleted  or  re-assigned 

*  To  delete  a  part,  first  identify  if  the  desired 
part  is  presently  in  storage  or  assigned  to  a 
component 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 
text 

"CAUTIONS" 

*  Extremely  important  that  all  information  is 
entered  correctly 

*  Mistakes  will  be  made  so  utilize  the  "NO"  or 

"ABANDON"  commands  before  resuming 

*  Recommend  using  DELETION  and  ARROW  keys  for 
modifying  data  entered  and  ensure  not  to  deviate 
outside  designated  fields 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 
text 


"WARNINGS" 

*  Use  of  BACKSPACE  key  can  cause  PREMATURE  exiting 
of  an  entry  field,  loop  back  for  re-entrance  of 
data 

*  Serial  Numbers  must  be  accurate  and  precise 

*  There  is  no  recovery  for  deleted  property, 

ensure  you  a  certain  you  are  deleting  the  proper 
item 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 

clear 

*EOF  DELHELP . PRG 


10.  MAIN  HELP.PRG 


a********************  Program:  MAIN  HLP.PRG  ****************** 


^Author . .  TIM  SEXTON 

^Purpose . describes  the  options  available  to  the 

*  user 

KCalls . .  None 


''Input/Output  Files.:  None 

*  begin  the  text  dialogue 
clear 

@  1,0  to  1,79  double 

@0,27  say  "M  AIN  HELP  MEN  U" 
text 


Welcome  to  the  Property  Management  Help  Menu 

This  menu  is  designed  to  help  the  unfamiliar  user 
identify  and  understand  those  areas  of  difficulty 
which  are  encountered  while  utilizing  this  application 
program.  The  Help  Menu  is  categorized  into  five  areas 
of  concern  which  will  be  identified  as  follows: 

1.  Lists  and  Searches 

2.  Property  Report  Printing 

3.  Entering  Property 

4.  Deleting  Property 

5.  Modifying  Property 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 

?  0,23  say  "LISTS  AND  SEARCHES" 
text 


*  Designed  to  provide  the  user  with  property  lists 

and  answers  to  queries 

*  Queries  are  made  to  identify  owners  and  locations 

of  property  concerned 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 

@0,17  say  "PROPERTY  REPORT  PRINTING" 
text 


*  Ensure  Printer  is  ON  and  READY 

*  Reports  are  pre-formatted 

*  Provides  two  types  of  Reports,  namely: 

**  Quarterly — Grouped  by  Custodian/Owner 

**  Summary - Grouped  by  Property  Type 

and  Property  Number 


endtext 

9  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 

@  0,24  say  "ENTERING  PROPERTY" 
text 


*  Property  is  entered  as  a  Component  or  a  Part, 
parts  are  items  used  in  a  component  (eg.  card) 

*  Mfg  Serial  Numbers  is  required  for  component  entry 

*  Part  Model  is  required  for  part  entry 

*  Custodian  and  Location  must  be  known  for 
component  entries,  parts  require  a  component 
serial  #  if  not  being  placed  into  storage 

endtext 

<§  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 

@  0,24  say  "D  E  L  E  T  I  N  G  PROPERTY" 

text 


*  Deletes  current  data  by  two  methods*. 

1 .  Component 

2.  Part 

*  Serial  Numbers  are  inputted  to  identify  component 

or  part  to  be  deleted  from  database 

*  Ensure  correct  entry  to  avoid  costly  re-entrance 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 

clear 

@  1,0  to  1,79  double 

@  0,22  say  "M  O  D  I  F  Y  I  N  G  PROPERTY" 
text 


*  Modifications  are  made  to  components  and  parts 

changing  accountability  or  to  the  record  itself 

*  Serial  Numbers  are  required  to  access  the  data 

to  be  updated  in  the  database 

*  Modifications  cannot  be  made  until  data  has  been 

entered 

*  Once  modifications  are  entered  be  sure  to  answer 
promts  correctly  in  order  that  new  modified  data 
be  recorded  into  the  database 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 


EOF  MAIN.HLP.PRG 


11.  MODCOMP.PRG 

*x*^*rx*k*wx**x*xk*x  Program;  MODCOMP.PRG  ************** 

''Author .  TIM  SEXTON 

-Purpose . :  allows  the  modification  of  the  component 

*  ‘  record,  with  the  exception  of  the  fields  to 

*  assign  ownership.  If  the  serial  #  is  changed, 

*  then  parts  with  that  serial  #  are  also  changed 

*  accordingly 

"Calls . :  None 

"Input/Output  Files.  :  COMPS. DBF,  PARTS. DBF 


clear 

set  confirm  on 
select  b 

use  parts  index  c_ser 
select  a 

use  comps  index  comp_ser ,name_loc 
do  while  . t. 

blank  =  space (15) 

rnrnfg  =  blank 
mmoa  =  blank 
mdesc  *  space(50) 
mser  =  blank 

mptype  =  "  " 
mpnum  =  space (10) 

mprice  =0.00 
mreqn  =  blank 

mloc_code  =  "  " 
mtoday  =  date(  ) 

mlname  *  blank 
mfname  =  blank 

finished  =  .f. 


@0,16  say  "MODIFY  COMPONENT  SCREEN" 

@  1,0  to  1,79  double 

do  while  .not.  finished  &&  modifying  a  component 

0  21,0  to  21,79 
@  2,56  say  "date:  " 

@  2,61  say  mtoday 

searched  *  .f. 
do  while  .not.  searched 

*  enter  serial  #  or  exit 
entering  =  .t. 

do  while  entering  &&  componenet  information 

@  3,0  say  "Enter  Component:" 

c  =  18  &&  entries  begin  at  column  18 

@  4,7  say  "serial  #:  " 

@  4,c  get  mser  PICTURE  "@N!" 

0  22,28  say  "To  EXIT  leave  serial  #  blank" 
read 


if  mser  =  blank 
set  confirm  off 
close  databases 
release  all 
return 
else 

9  22,0  clear  to  23,79 
endif 

check  to  see  if  on  file 
select  comps 
set  order  to  1 
goto  top 
on_file  =  .f. 
correct  =  .f. 
rec  =  -1 

if  .not.  eof() 
set  exact  on 
seek  trim(mser) 
else 

on_file  =  .f. 
correct  =  .f. 
endif 

if  found( ) 

rec  *  recno() 
correct  =  . t. 

9  3,0  clear  to  20,79 

mmod  *  c_model 
mmfg  *  c_mfg 
mdesc  *  c_desc 
mptype  =  c_ptype 
mpnum  =  c_pnum 
mprice  =  c_price 
mreqn  =  c  reqn 


mreqn  =  e  reqn 
mlname  *  Iast_name 
mfname  =  first_name 
mloc_code  *  loc_code 

9  3,6  say  "Custodians  " 

9  3,c  say  trim(last_name)  +",  11  +  first_name 

9  4,1  say  "designated  uses  " 
do  case 

case  loc_code  =  "0" 

9  4,c  say  "Office" 
case  loc_code  =  "H" 

9  4,c  say  "Home" 
case  loc_coae  =  "L" 

9  4,c  say  "Lab" 
otherwise 

9  4,c  say  "Storage" 

endcase 

9  6,12  say  "mfgs  " 

#  6,c  say  mmfg 

@  7,10  say  "models  " 

@  7  ,c  say  mmod 

@  8,7  say  "serial  #s  " 

9  8,c  say  mser 

I  9,4  say  "descriptions  " 

@  9,c  say  mdesc 

9  11,2  say  "property  types  " 

do  case 
case 


case  c  Dtype  =  "P" 

9  lf,c  say  "Plant" 
case  c  Dtype  =  "M" 

9  ll,c  say  "Minor" 
otherwise 

9  11, c  say  "Other" 

endcase 


if  cptvpe  =  "M"  .or.  c_ptype  =  "P" 

@12,5  say  "property  " 

@  12 ,  c  say  c_pnum 
endif 

@  14,10  say  "price:  $" 

@  14, c  say  c_price 

@  15,9  say  "reqn  #:  " 

0  15, c  say  c_reqn  PICTURE  "@!R  9999-NNNN/MNNNN" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,25  say  "Is  this  the  correct  component?:  :" 

@  23,33  say  "[  Yes  /  Mo  ]" 

@  22,56  get  ans  picture  "@!A" 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 

if  uoper(ans)  =  "Y" 
on_file  =  .t. 
searched  =  . t. 
entering  =  .f. 
else 

on_file  = . f . 
correct  = . t . 

@  22,10  say; 

"The  component  shown  is  the  only  one  "+; 

,  ,  "on  file  with  this  serial  # 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  23,79 

@  22,14  say  "Your  component  maybe  not  on  "+; 

.  ,  "file,  check  the  serial  #" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  l 
enddo 

@  22,0  clear  to  22,79 
@  3,0  clear  to  20,79 

endif 

endif  found 

if  .not.  found()  .or.  .not.  correct 

@  22,28  say  "Component  not  on  file  !!!" 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  S"yYnN" 
ans  =  "  " 

i?  22,25  say  "Is  this  the  correct  serial  #? :  :" 

@  23,33  say  "[  Yes  /  No  ]" 

$  22,55  get  ans  picture  "@!A" 
read 
enddo 

(?  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  *  "Y" 
correct  =  .t. 
on  file  =  ,f. 

@  22,14  say  "Your  component  maybe  not  on  "+; 


file,  check  the  serial  # 


delay  *  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

correct  =  .f. 

@  22,20  say; 

,fPlease  re-enter  the  component  serial  #" 

delay  *  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
mser  =  blank 
endif 

endif  not  found 

if  .not.  on  file  .and.  correct 
mser  -  blank 

endif  not  on  file  and  done 


enddo  entering 
enddo  searched 


allow  editing  the  component  record 
new.mfg  =  blank 
new.mod  =  blank 
new^desc  =  space (50) 
new  ser  =  blank 


new_ptype  *  "  " 
newjpnum  =  space (10) 


new_price  =0.00 
new_reqn  =  blank 

change  it  =.t. 
changed  =  .f. 

do  while  change.it  .and.; 

.not.  changed  &&  componenet  information 


@  6 , c  clear  to  20,79 
@  22,16  say; 

"Make  required  changes, 


press  RETURN  when  correct" 


new  mfg  =  mmfg 

@  Z,c  get  nev_mfg  PICTURE  "@N!" 
read 


new  mod  =  mmod 

@  7,c  get  newjnod  PICTURE  "@N!" 
read 


enter  mfg  serial#  (mandatory) 
no_ser  =  .t. 
do  while  no_ser 
new_ser  »  mser 

@  8,c  get  new.se r  PICTURE  "(?N!" 
read 

if  new_ser  *  blank 

9  TZ, 0  clear  to  22.79 
@  22,24  say  "serial  #  may  not  be  blank" 
delay  =  0 

do  while  delay  <25 
delay  =  delay  +  1 
enddo 

<?  22,0  clear  to  22,79 
@  22,16  say  "Make  required  changes'^; 

",  press  RETURN  when  correct" 

else 

no.ser  *.f. 
endif 


new  desc  =  mdesc 

@  9,c  get  new_desc  PICTURE  "@N!" 
read 

*  enter  property  type  (mandatory) 
set  confirm  off 

@  11,20  say  "(Plant  /  Minor  /  Other)" 
new_ptype  =  mptype 
@  11, c  get  new_ptype  PICTURE  "@!A" 
read 

do  while  .not.  new_ptype  $  "mMoOpP" 
new_ptype  =  mptype 
@  11, c  get  new_ptype  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 


property#  for  other  type  property 
if  upper(new_ptype )  =  "0" 

@  12,0  clear  to  12,79 
new_pnum  =  space (10) 
endif 


&&  ensure  it  is  blank 


enter  property#  (mandatory  for  plant  and  minor  property  types) 
if  upper(new_ptype)  =  ftM"  .or.  upper (new_ptype)  *  "P" 
(f  12,5  say  ''property  #i  " 


0  12,5  say  "property  #:  " 
no_num  =*  .t. 
do  while  no_num 

new  onum  -  mpnum 

@  1  T,c  get  new_pnum  PICTURE  "@Nf" 
read 

if  new _pnum  =  space (10) 

@22,0  clear  to  22,79 
@  22,12  say  "Minor  and  Plant  property 

"require  a  property  number" 

delay  »  0 

do  while  delay  <  25 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
@  22,16  say  "Make  required  changes’^; 

.  ",  press  RETURN  when  correct 

else 

no_num  *  . f . 
endif 
enddo 
endif 


*  enter  price  and  requisition# 
new  Drice  *  mprice 
@  14, c  get  new_pri< 

read 


c  get  new_price  PICTURE  "@R  99,999.99" 


new  reqn  *  mreqn 

@  15, c  get  new_reqn  PICTURE  "@!R  9999-NNNN/NNNNN' 

read 

set  confirm  off 
@  22,0  clear  to  22,79 
ans  *  "  " 

do  while  .not.  ans  S"aAyYnN" 
ans  ■  "  " 

@  22,25  say  "Are  the  modifications  correct?:  : 
@  23,29  say  "[  Yes  /  No  /  Abandon]" 

@  22,56  get  ans  picture  "@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  *  "A" 


change! t  =  .  f . 
endif 

if  upper (ans)  3  "Y"  &&  add  mvar  to  dbf 

changed  =  .t. 
endif 

enddo  change 

if  original  record  was  changed  replace  the  old  fields 
with  the  new  ones 


if  changed 

set  confirm  off 
9  22,0  clear  to  22,79 
ans  =  "  " 

do  while  .not,  ans  $"yYnN" 
ans  =  "  " 

@  22,18  say; 

"Do  you  wish  to  file  the  modified  component?: 
9  23,29  say  "[  Yes  /  No  1" 

9  22,62  get  ans  picture  r'@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 


if  upper (ans)  3  "N" 
changed  =  .f. 
endif 


if  upper (ans)  3  "Y"  &&  add  mvar  to  dbf 

9  22,20  say  "Standby  while  your  entry  is  placed  on  file" 


place  in  comps 

select  comps 
goto  rec 

replace  c_mfq  with  trim(new_mfg) 
replace  c_model  with  tnm(new  mod) 
replace  cwdesc  with  trim(new_aesc) 
replace  composer  with  tnm(new_ser) 
replace  cjptype  with  newjptype 
replace  c_pnum  with  trim(newjpnum) 
replace  c_price  with  new_price 
replace  c  reqn  with  trim(new_reqn) 


changed  *  .f. 

replace  comp_ser  in  parts  file 
select  parts 
goto  top 

set  exact  on  v  „ 

replace  comp  ser  with  trim(new_ser)  for; 

comp_ser 

endif 

endif  changed 


trim(mser ) 


if  .not.  changed 

9  22,0  clear  to  23,79 

9  22,14  say  "Do  you  have  additional  component"*; 

“  "  records  to  modify 

9  23,34  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  *  "  " 

do  while  .not.  ans  S  "yYnN" 
ans  *  "  " 

9  22,66  get  ans 
read 
enddo 


if  upper (ans)  3  "N" 
finished  3  .t. 
clear 


else 


&&  set  up  for  the  next  one 


@  22,0  clear  to  23,79 
entering  =  .t. 

mmfg  =  blank 
mmoa  =  blank 
mdesc  =  space(50) 
mser  =  blank 

mptype  =  "  " 
mpnum  =  space(lO) 

mprice  =  0.00 
mreqn  =  blank 

mloc_code  =  "  " 
mtoday  =  date(  ) 

mlname  =  blank 
mfname  =  blank 

@  3,0  clear  to  20,79 
endif 


endif  not  changed 
enddo  finished 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  modcomp.prg 


12.  MODLOC.PRG 

********************  Program:  MODLOC.PRG  ************** 

*  Author . .  TIM  SEXTON 

*  Purpose . .  allows  reassigning  a  component  to  a  new 

*  custodian  if  the  custodian  is  not  on  file  a 

*  new  record  is  created  in  owners  and  or  homes, 

*  if  the  owner  is  not  on  file  for  any 

*  components  any  longer  then  they  are  deleted 

*  Calls .  None 

*  Input/Output  Files.:  COMPS. DBF,  OWNERS. DBF,  HOMES. DBF 


clear 

set  confirm  on 
set  exact  off 

select  c 

use  homes  index  l_fnames  &&  indexed  on  last, first  names 
select  b 

use  owners  index  names  &&  indexed  on  last, first  names 
select  a 

use  comps  index  comp_ser ,name_loc  &&  indexed  on  comp_ser 
do  while  .t. 

blank  *  space(15) 

mmfg  =  blank 
mmoa  =  blank 
mdesc  =  space(50) 
mser  *  blank 

mptype  =  "  " 
mpnum  *  space (10) 


mloc_code  =  "  11 
mtoday  =  date(  ) 

mlname  =  blank 
mfname  =  blank 
mlocation  =  space (8) 

mstreet  =  space<25) 
mcity  =  blank 
mphone  =  space (13) 

addhome  =  .  f. 
addowner  =  .f. 
finished  =  .f. 


@0,6  say  ; 

"MODIFY  COMPONENT  ASSIGNMENT  SCREEN" 
@  1,0  to  1,79  double 

do  while  .not.  finished  &&  modifying  a  component 

@  21,0  to  21,79 
@  2,56  say  "date:  " 

@  2,61  say  mtoday 

searched  =  . f . 
do  while  .not.  searched 

*  enter  serial  #  or  exit 

entering  =  .t. 

do  while  entering  &&  componenet  information 

@  3,0  say  "Enter  Component:" 

c  =  18  &&  entries  begin  at  column  18 

0  4,7  say  "serial  #:  " 

@  4,c  get  mser  PICTURE  "@N!" 

@  22,28  say  "To  EXIT  leave  serial  #  blank" 
read 

if  mser  *  blank 
set  confirm  off 
close  databases 
release  all 
return 
else 

0  22,0  clear  to  23,79 
endif 

*  check  to  see  if  on  file 

select  comps 
set  order  to  1 
goto  top 
on_file  *  .  f. 
correct  =  .f. 
c_rec  =  - 1 

if  .not.  eof() 
set  exact  on 
seek  trim(mser) 
set  exact  off 
else 

on_file  *  .£. 
correct  *  .f. 
endif 


if  found() 

c_rec  *  recno() 
correct  *  .t. 

@  3,0  clear  to  20,79 
mmod  *  c_model 
mmfg  *  c_mfg 


mdesc  =  c_desc 
mptype  =  c_ptype 
mpnum  =  cjnuni 
mlname  =  Tast_name 
mfname  =  first_name 
mloc_code  =  loc_code 

if  mloc_code  =  "0" 
select  owners 

locate  for  last_name  =  trim(mlname)  .and.; 
first_name  *  trim(mfname)  .and.; 

location  <>  "HOME" 

mlocation  =  owners->location 
endif 

if  mloc_code  =  "H" 
select  homes 

set  relation  to  last_name+first_name  into  owners 

locate  for  last_name  =  trim(mlname)  .and.; 
first_name  =  trim(mfname)  .and.; 

owners->location  =  "HOME" 

mlocation  =  owners->location 
mstreet  =  homes->street 
mcity  =  homes->  city 
mphone  =  homes ->  phone 
set  relation  to 
endif 

d  3,12  say  "mfg:  " 

d  3 , c  say  mmfg 

d  4,10  say  "model:  " 

d  4,c  say  mmod 

d  5,7  say  "serial  #:  " 

d  5,c  say  mser 

d  6,4  say  "description:  " 

@  6,c  say  mdesc 

@  8,2  say  "property  type:  " 
do  case 

case  mptype  =  "P" 

d  8 , c  say  "Plant" 
case  mptype  =  "M" 

d  8,c  say  "Minor" 
otherwise 

d  8,c  say  "Other" 

endcase 

if  mptype  =  "M"  .or.  mptype  =  "P" 
d  4,5  say  "property  #:  " 
d  9,c  say  mpnum 
endif 

d  11,1  say  "designated  use:  " 
do  case 

case  mloc_code  =  "0" 
d  11, c  say  "Office" 
case  mloc_code  =  "H" 
d  11, c  say  "Home" 
case  mloc_cocfe  =  "L" 
d  11, c  say  "Lab" 
otherwise 

d  11, c  say  "Storage" 

endcase 

d  13,6  say  "Custodian.-  " 
do  case 

case  mloc_code  =  "L" 
d  13 , c  say  mlname 
d  14,12  say  "lab:  " 
d  14, c  say  mfname 

case  mloc_code  =  "0" 

d  13, c  say  trim( last_name )  +",  "  +  first_name 


d  14,9  say  "offices.  " 
d  14, c  say  mlocation 

case  mloc  code  =  "H" 

@  13, c  say  trim( last  name)  +" ,  "  +  first_name 
d  14,9  say  "street:  " 
d  14, c  say  mstreet 
d  15,11  say  "city:  " 
d  15, c  say  mcity 
d  16,10  say  "phone:  " 
d  16, c  say  mphone 

case  mloc  code  =  "S" 
d  13, c  say  "AS  DEPT" 

endcase 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

d  22,25  say  "Is  this  the  correct  component?: 
d  23,33  say  "[  Yes  /  No  1" 
d  22,56  get  ans  picture  "@!A" 
read 
enddo 

set  confirm  on 
d  22,0  clear  to  23,79 


if  upper (ans) 
on_file  = 
searched  s 
entering  : 
else 

on_file  = 
correct  = 


f. 

t. 


.  II 


d  22,10  say; 

"The  component  shown  is  the  only  one  "+; 

"on  file  with  this  serial  #" 

delay  =  0 

do  while  delay  <  40 
delay  *  delay  +  1 
enddo 

d  22,0  clear  to  23,79 

d  22,14  say  "Your  component  maybe  not  on  "+; 

"file,  check  the  serial  #" 

delay  *  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

d  22,0  clear  to  22,79 
d  3,0  clear  to  20,79 

endif 

endif  found 


if  .not.  found()  .or.  .not.  correct 

d  22,28  say  "Component  not  on  file  !!!" 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

d  22,0  clear  to  22,79 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

d  22,25  say  "Is  this  the  correct  serial  #?: 
d  23,33  say  "[  Yes  /  No  ]" 
d  22,55  get  ans  picture  "d!A" 
read 
enddo 

d  22,0  clear  to  23,79 
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set  confirm  on 

if  upper (ans)  =  "Y" 
correct  =  .t. 
on  file  =  .£. 

@  22,14  say  "Your  component  maybe  not  on  "+; 

"file,  check  the  serial  #" 

delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

<3  22,0  clear  to  22,79 
else 

correct  =  .£. 

@  22,20  say,- 

"Please  re-enter  the  component  serial  #" 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
mser  =  blank 
endif 

endif  not  found 

if  .not.  on  file  .and.  correct 
mser  =  blank 

endif  not  on  file  and  done 


enddo  entering 
enddo  searched 

*  allow  reassigning  the  component 

addhome  =  .f. 
addowner  =  .£. 
change  it  =.t. 
changed  =  .f. 

do  while  change_.it  .and.; 

.not.  changed 


ALL  NEW  FROM  HERE  ON 


&&  componenet  information 


@  11, c  clear  to  11,79 
@  12,0  clear  to  20,79 

@  22,26  say  "Enter  component  new  assignment" 

*  enter  location  code 

new_code  =  "  " 
set  confirm  off 

@  11,20  say  "(Office  /  Lab  /  Storage  /  Home)" 

@  11, c  get  new_code  PICTURE  "@!A" 

read 

do  while  .not.  new_code  $"0oLlSsHh" 
new  code  =  "  " 

@  ll,c  get  new_code  PICTURE  "<3!A" 
read 
enddo 

set  confirm  on 

addhome  =  .f. 
addowner  *  .f. 
new_lname  =  blank 
new_fname  =  blank 
new_loc  =  space (8) 
new_street  =  space(25) 
new_city  =  blank 
newjphone  =  space (13) 

*  enter  custodian  information,  search  to  see  if  on  file 

*  use  owners  for  loc_codes  0,S,L 

*  use  homes  for  loc_code  H 

*  last  name,  first  name,  and  office  or  home  addresses  are  mandatory 

do  case 


V>.V.VVVJ 
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*  office  use 


case  new_code  =  "0" 

(?  22,0  clear  to  22,79 

@  22,26  say  "Enter  component  new  Custodian" 

no_lname  =  .t. 
do  while  no_lname 

@  13,0  clear  to  20,79 

(a  13,6  say  "Custodian" 

@  14,6  say  "last  name:  " 

@  14, c  get  new_lname  PICTURE  "@!A" 

read 

if  new  lname  =  blank 

@  22,0  clear  to  22,79 

d  22,24  say  "Custodian's  name  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_lname  =  .f. 
endif 

enddo  no  lname 


check  to  see  if  on  file 

select  owners 
goto  top 
searched  =  .f. 
checked  =  .  f. 
located  =  .f. 


searched 


do  while  .not. 
if  eof() 

searched  *  .t. 
else 

seek  trim(new_lname) 
endif 


if  .not.  found() 
searched  *  .t. 
addowner  *  .t. 
endif 

if  found()  .and.  location  »  "HOME" 
searched  *  .t. 
located  =  .t. 
checked  =  .t. 
endif 

"HOME" 


if  foundO  .and.  location 
searched  *  .t. 


<> 


located  =  .t. 
checked  =  .f. 
endif 
enddo 

do  while  located 

do  while  .not.  checked 

@15,5  say  "first  name: 
@  15, c  say  first_name 
@16,9  say  "office:  " 

@  16, c  say  location 
set  confirm  off 


do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,0  clear  to  22.79 
@  22,20  say  "Is  this  the  correct"+; 

"  custodian?:  :" 

@  23,26  say  "[  Yes  /  No  1" 

@  22,51  get  ans  picture  "@!A" 
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read 

enddo 

@  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  =  "Y" 
located  =  .f. 
checked  =  .t. 
new_fname  =  first_name 
new_loc  =  location 
else 

checked  =  .t. 

@  15, c  clear  to  16,79 
endif 

enddo  checked 

do  while  located  .and.  checked  .and.  .not.  eof() 
skip 
if  eof() 

located  =  .f. 
addowner  *  .t. 
endif 


if  last  name  =  trim(new_lname) 
checked  =  .f. 
else 

located  =  .f. 
addowner  =  .t. 
endif 


if  location  =  "HOME" 
located  =  .t. 
checked  =  .t. 
endif 


enddo  located  and  checked 
enddo  located 

if  addowner 

no  fname  *  . t . 

ji  _  _  1'  i  _ _ . 


do  while  no_fname 

@15,5  say  "first  name 

@  15,c  get  new  fname 

read 


picture  "@!A' 


if  new  fname  =  space(15J 
@22,0  clear  to  22,79 

@  22,20  say  "A  first  name  or  first"+; 


delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_fname  =  .f. 
endif 

enddo  no  fname 


initial  is  required" 


@  16,9  say  "office:  " 

@  16,27  say  "(bldg-room)" 

no_office  =  ,t. 

do  while  no  office 

@  16, c  get  new_loc  PICTURE  "@!  (A-999)" 
read 

if  new  loc  =  space (8) 

@  22,0  clear  to  22,79 
@  22,26  say  "Office  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
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else 

no_office  =  .f. 
endif 

enddo  no  office 
endif  add  owner 


*  supply  use 

case  new_code  =  "S" 

@  22,0  clear  to  22,79 
@  13,0  clear  to  20,79 

@  13,6  say  "custodian:  AS  DEPT" 

@  14.9  say  "location:  (1-200)" 
new_lname  =  "AS  DEPT  " 

new_fname  =  "(1-200)  " 
new_loc  =  "STORAGE  " 

*  check  to  see  if  on  file 

select  owners 
goto  top 

if  eof() 

addowner  =  .t. 
else 

locate  for  last_name  *  trim(new_lname)  .and.; 
first_name  =  trim(new_fname)  .and./ 

location  =  new  loc 

endif 

if  .not.  found() 
addowner  =  .t. 
endif 


*  lab  use 

case  new_code  =  "L" 

@  22,0  clear  to  22,79 

@  22,26  say  "Enter  component  new  assignment" 

@  13,0  clear  to  20,79 

@  13,5  say  "  A  -  (1-158)  Front  C  -  (1-224)" 

@  14,5  say  "  B  -  (1-158)  Back  D  -  (1-250)" 

@16,3  say  "Enter  one  of  the  above  lab  locations  :  :" 

set  confirm  off 
lab  =  "  " 

do  while  .not.  lab  $  "AaBbCcDd" 
lab  =  "  " 

@  16,41  get  lab  picture  "@!A" 
read 
enddo 

set  confirm  on 

new_lname  =  "AS  DEPT  " 

new_loc  =  "LAB  " 
do  case 

case  upper(lab)  =  "A" 

new.fname  =  ”(I-158)F" 

case  upper (lab)  =  "B" 

new_fname  =  "(I-158)B" 

case  upper (lab)  =  "C" 
new_fname  =  "(1-224)" 

case  upper (lab)  =  "D" 
new_fname  =  "(1-250)" 

endcase 


*  check  to  see  if  on  file 

select  owners 
goto  top 
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if  eof() 

addowner  =  .t. 
else 

locate  for  last  name  =  trim(new_lname)  .and.; 
first_name  =  trim(new_fname)  .and.; 

location  =  new_loc 

endif 


if  .not.  found() 
addowner  =  .t. 
endif 


*  home  use 


case  new  code  =  4IHM 


@  22,0  clear  to  22,79 

@  22,26  say  "Enter  component  new  assignment" 

new  loc  =  "HOME  » 
no_Tname  =  . t . 
do  while  no  lname 

@  13,0  clear  to  20,79 

§  13,6  say  "Custodian" 

@  14,6  say  "last  name:  " 

d  14, c  get  new_lname  PICTURE  "d!A" 

read 

if  new  lname  =  blank 

d  ?2,0  clear  to  22,79 

d  22,24  say  "Custodian's  name  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

d  22,0  clear  to  22,79 
else 

no_lname  =  .f. 
endif 

enddo  no  last  name 


*  check  to  see  if  on  file 

select  homes 
goto  top 
searched  =  .f. 
located  =  .f. 
checked  =  .f. 


do  while  .not.  searched 
if  eof() 

searched  =  .t. 
else 

seek  trim(newlname) 
endif 


if  .not.foundO 
searched  =  .t. 
addowner  =  ,t. 
addhome  ®.t. 
endif 


if  foundO 

searched  =  .t. 
located  =  ,t. 
checked  *  ,f. 
endif 

enddo  not  searched 


do  while  located 

do  while  .not.  checked 

@15,5  say  "first  name:  " 
@  15, c  say  first_name 
@  16,9  say  "street:  " 

@  16, c  say  street 

@  17,11  say  "city:  " 

@  17, c  say  city 
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9  18,10  say  "phone*  " 

9  18, c  say  phone 

set  confirm  off 
<3  22,0  clear  to  22,79 
ans  =  11  " 

do  while  .not.  ans  $"yYnN" 
ans  =  11  " 

@  22,20  say  "Is  this  the  correct"*; 
lf  custodian?: 

9  23,26  say  "[  Yes  /No  1" 

I  22,51  get  ans  picture  rt@!A" 
read 
enddo 

set  confirm  on 
9  22,0  clear  to  23,79 

if  upper (ans)  =  "Y" 
located  =  .f. 
checked  =  .t. 
new_fname  =  first_name 
new_street  =  street 
new_city  =  city 
new_phone  =  phone 
else 

checked  =  .t. 

9  15, c  clear  to  20,79 
endif 

enddo  checked 

do  while  located  .and.  checked  .and.  .not.  eof() 
skip 
if  eof () 

located  =  .f. 
addowner  »  .t. 
addhome  =  . t. 
endif 

if  last  name  *  new_lname 
checked  *  .  f. 
else 

located  =  .f. 
addowner  *  .t. 
addhome  =  .t. 
endif 

enddo  located  and  checked 
enddo  located 

if  addowner 

no_fname  =  .t. 
do  while  no_fname 

@  15,5  say  "first  name:  " 

@  15, c  get  new_fname  picture  "@!A" 
read 

if  new_fname  »  blank 

9  ?2, 0  clear  to  22,79 
@  22,20  say  "A  first  name  or  first"+; 

"  initial  is  required" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

9  22,0  clear  to  22,79 
else 

no_fname  *  .f. 
endif 

enddo  no  fname 

no_address  =  .t. 
do  while  no_address 

@  16,9  say  "streets  " 

@  16, c  get  new_street  PICTURE  "@!" 


@  17,11  say  "city:  " 

0  17 ,c  get  new_city  PICTURE  "@»A" 

0  13,10  say  "phone:  " 

0  13, c  get  new_phone  PICTURE  "(999)999-9999" 
read 

if  new_street  =  space(25)  .or.; 

new  city  =  blank 
d  22,0  clear  to  22,79 

0  22,24  say  "Street  or  City  may  not  be  blank" 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

0  22,0  clear  to  22,79 
else 

no_address  =  .f. 
endif 

enddo  no  address 
endif  addowner 
endcase  location  code 


set  confirm  off 
@  22,0  clear  to  22,79 
ans  =  "  " 

do  while  .not.  ans  $MaAyYnN" 
ans  =  "  " 

0  22,25  say  "Are  the  modifications  correct?:  :" 

@  23,29  say  "[  Yes  /  No  /  Abandon]" 

0  22,56  get  ans  picture  "@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 

if  upper(ans)  =  "A" 
change_.it  =  .f. 
endif 

if  upper (ans)  =  "Y"  &&  add  mvar  to  dbf 

changed  =  .t. 
endif 

enddo  change 

*  if  changed  replace  old  fields  with  new  fields 

if  changed 

set  confirm  off 
@  22,0  clear  to  22,79 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,18  say  "Do  you  wish  to  file  the  "  +; 

"modified  component? :  :" 

@  23,29  say  "[  Yes  /  No  J" 

0  22,62  get  ans  picture  "@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  =  "N" 
changed  =  .f. 
endif 

if  upper (ans)  =  "Y"  &&  add  mvar  to  dbf 

0  22,20  say  "Standby  while  your  entry  is  placed  on  file" 

*  place  in  comps 

select  comps 

goto  c_rec 

replace  loc_code  with  new_code 


*  * 


replace  last_name  with  trim(new  lname) 
replace  first_name  with  trim<ftew  fname) 
replace  issue_date  with  intoday 

*  check  and  see  if  old  owner  needs  to  deleted  from  owners  or  homes 
goto  top 

del_owner  =  .f. 
de l_home  =  . f . 

if  mloc_code  =  "0"  .or.  mloc_code  =  "H" 

locate  for  last_name  =  trim(mlname)  .and.; 

first_name  =  trim(mfname)  .and.; 

loc_code  =  mloc_code 

if  .not.  found() 
del_owner  =  .t. 
if  mloc  code  *  "H" 

del_nome  =  .t. 

endif 
endif 
endif 

if  the  old  custodian  is  not  in  the  comp  file 
delete  them  from  owners 

if  del  owner 

select  owners 
goto  top 

locate  for  last_name  =  trim(mlname)  .and.; 

first_name  =  trim(mfname)  .and.; 

location  =  mlocation 

delete 
endif 

*  if  the  old  custodian  is  not  in  the  comp  file,  delete  them  from 

*  homes  if  the  old  loc  code  was  HOME 

if  del  home 

select  homes 

locate  for  last_name  =  trim(mlname)  .and.; 

first_name  »  trim(mfname)  .and.; 

street  =  trim(mstreet) 

delete 

endif 

*  place  in  owners  if  new  owner  not  on  file 

if  addowner 

select  owners 
append  blank 

replace  last_name  with  trim(new_lname) 
replace  first^name  with  trim(new_fname) 
replace  location  with  new_loc 
endif 

*  place  in  homes  if  new  owner  not  on  file  and  loc  code  =  HOME 

if  addhome 

select  homes 
append  blank 

replace  last  name  with  trim(new_lname) 
replace  first_name  with  trim(new_fname) 
replace  street  with  trim(new^street) 
replace  city  with  trim(new_city) 
replace  phone  with  new_phone 
endif 


changed  *  .f. 
endif 

endif  changed 

if  .not.  changed 

@  22,0  clear  to  23,79 

@  22,14  say  "Do  you  have  additional  component"*; 
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records  to  modify?: 


0  23,34  say  "[  Yes  /  No  ]" 

set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  S  "yYnN" 
ans  =  11  " 

@  22,66  get  ans 
read 
enddo 

if  upper(ans)  =  "N1' 
finished  =  . t. 
clear 

else  &&  set  up  for  the  next  one 

<?  22,0  clear  to  23,79 

entering  =  . t. 

mmfg  =  blank 
mmod  =  blank 
mdesc  =  space(50) 
mser  =  blank 

mptype  =  "  " 
mpnum  =  space(lO) 

mloc_code  =  11  " 
mtoday  =  date(  ) 

mlname  =  blank 
mfname  =  blank 
mlocation  =  space(8) 
mstreet  =  space(25) 
mcity  =  blank 
mphone  =  space (13) 

addhome  =  .f. 
addowner  =  .f. 

@  3,0  clear  to  20,79 
endif 

endif  not  changed 
enddo  finished 

select  owners  &&  pack  files 
pack 

select  homes 
pack 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  modloc.prg 


13.  MODMENU.PRG 


******************** 

*Author . . 

^Purpose . . 

* 

*Calls . 

*Input/Output  Files.: 


Program:  MODMENU.PRG  ************** 

TIM  SEXTON 

displays  the  choices  to  modify  a  component 
or  part  record,  also  allow  re-assigning  the 
custodians 

MODCOMP . PRG,  M0DL0C . PRG , MODPART . PRG 
None 


*  set  up  the  screen  environment 
clear 

set  confirm  off 


*  * 


VUWNVW1UV 


MUM  MU' )'M yywjmmpjl 


*  begin  the  menu  dialogue 
do  while  .t. 


clear 
9  2,10 
@  3,29 

9  4,11 


9 

9 

9 


6.27 

7.27 

3.27 
9  10,27 
9  11,27 

@  13,27 

9  15,27 
§  17,30 


to  17,69  double 

say  "Modify  Property  Menu" 

to  4,68  double 

Modify  COMPONENT" 

1  -  Custodian  or  Location" 

2  -  Record" 

Modify  PART" 

3  -  Accountability  or  Record" 
H  -  HELP" 


say 

say 

say 

SAY 

say 

say 


say 

say 


0  -  RETURN  to  MAIN  MENU" 
selection  :  :  " 


choice  =  "  " 

@  17,42  get  choice 
read 


place  an  asterisk  next  to  a  valid  choice  and  erase  the  other 
rows  leaving  the  heading  Part  or  Component 

line  =  5 

if  choice  $"hH0123" 
do  case 

case  upper(choice)  =  "H" 

9  13,26  say 
choicerow  =  13 
case  choice  =  "0" 

@  15,26  say 
choicerow  =  15 
case  choice  $"12" 

f  6+val^choice) ,26  say 

choicerow  =  6+val(choice) 
otherwise 

@  8+val(choice) ,26  say 
line  =  10 

choicerow  =  8+val(choice) 

endcase 

firstrow  =  6 
rows  =11 
rowcnt  =  0 

do  while  rowcnt  <  rows 

if  (rowcnt+firstrow  <>  choicerow) 
if  (rowcnt+firstrow  <>  line) 

@  firstrow+rowcnt,27  say  space(30) 
endif 
endif 

rowcnt  =  rowcnt  +  1 
enddo 
endif 

*  do  a  valid  choice  or  loop  back  thru  this  program 
do  case 

case  upper (choice)  =  "H" 
do  mod_help 

case  choice  =  "0" 
clear 
return 

case  choice  =  "1" 
do  modloc 

case  choice  =  "2" 
do  modcomp 

case  choice  =  "3" 
do  modpart 


otherwise 

@  20,22  say  "******  not  a  valid  selection  ******" 
■> 

wait 

loop 

endcase 

enddo 

*  EOF  MODMENU . PRG 


14.  MODPART.PRG 

********************  Program:  MODPART.PRG  ************** 

’‘'Author . :  TIM  SEaTOn’ 

^Purpose . 2  allows  the  modification  of  the  part  record, 

x  if  reassigned  a  different  component  the 

*  component  is  checked  to  see  if  on  file 

*Calls . :  None 

*Input/Output  Files.:  COMPS. DBF,  PARTS. DBF 


clear 

set  confirm  on 
set  exact  on 

select  a 

use  comps  index  comp_ser ,name_loc  &&  indexed  on  comp_ser 

select  b 

use  parts  index  c_ser  &&  indexed  on  comp_ser 
&&  indexed  on  last, first  names 
set  relation  to  comp_ser  into  comps 

do  while  .t. 

usage  =  "  " 
blank  *  space (15) 

mmod  =  blank 
description  =  space(50) 
mpart_ser  =  blank 
mptype  =  "  11 
mpnum  =  space (10) 

component  =  blank 
mtoday  =  date(  ) 

mc_mod  =  blank 
mc_mfg  =  blank 
mc_desc  =  space (50) 
mc_ptype  =  11  " 
mc_pnum  =  space (10) 

Iname  =  blank 
fname  -  blank 

known  =  . f . 
finished  =  .f. 
change _it  =  .f. 

do  while  .not.  finished  &&  modifying  parts 

@  21,0  to  21,79 

@0,20  say  "MODIFY  PART  SCREEN" 

@  1,0  to  1,79  double 

entering  =  .t. 

do  while  entering  &&  part  information 

find  use  -  .t. 
do  while  find_use 


located  =  .f. 
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*  entries  begin  at  column  18 

c  =  18 

0  3,0  clear  to  20,79 
d  2,56  say  "date:  " 

0  2,61  say  mtoday 

d  3,0  say  "Enter  Fart" 

*  enter  use  or  exit 

0  4,2  say  "current  usage:  " 

d  4,20  say  "(Storage  /  component  /  ?  not  known)" 
set  confirm  off 

0  4,c  get  usage  picture  "@N!" 

0  22,25  say  "To  EXIT  leave  current  usage  blank" 
read 

do  while  .not.  usage  $  "  sScC?" 
usage  =  "  " 

@  4 , c  get  usage  picture  "@N!" 

read 
enddo 

set  confirm  on 

if  usage  =  "  " 

set  confirm  off 
close  databases 
release  all 
return 
else 

0  22,0  clear  to  23,79 
endif 

if  upper (usage)  =  "?" 

0  3,0  clear  to  20,79 
known  =  .f. 
locating  =  .f. 
located  =  .t. 
component  =  blank 
find_use  *  . f. 
endif 

if  upper(usage)  =  "S" 

<f  3,0  clear  to  20,79 
known  =  . t . 
locating  =  .f. 
located  =  .t. 
component  =  blank 
find_use  =  .f. 
endif 

if  upper (usage)  =  "C" 
known  =  .t. 

@  4,0  clear  to  20,79 
0  3,0  say  "Enter  Component" 

@  4,8  say  "serial#:  " 
locating  =  .t. 
endif 

on_file  =  .t. 
sought  =  .f. 

do  while  locating 

@  4,c  get  component  picture  "@N!" 

0  22,0  clear  to  23,79 
0  22,16  say; 

"To  ABANDON  component  entry  leave  serial  #  blank" 

read 

if  component  =  blank 
locating  =  . f . 
usage  =  "  " 

@  22,0  clear  to  23,79 
else 
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@  22,0  clear  to  23,79  • 

*  check  to  see  if  component  on  file 

select  comDS 
set  order  to  1 
goto  top 
endif 

if  .not.  eofO 

seek  trim(component) 
sought  =  .t. 
else 

on_file  =  . f. 
endif 

if  foundQ  .and.  sought 
mc_mod  =  c_model 
mc_mfg  =  c_mfg 
mc_ptype  =  c_p type 
mc_pnum  =  c_pnum 
lname  =  last_name 
fname  =  first_name 
@  6,0  clear  to  10,79 

@6,12  say  "mfg:  " 

@  6,c  say  c_mlg 

@7,10  say  "model:  11 

@  7,c  say  c  model 

@  8,4  say  "description:  " 

@  8,c  say  c_desc 

@9,2  say  "property  type:  " 

do  case 

case  cptype  =  "P" 

@  fTc  say  "Plant" 
case  c_ptype  =  "M" 

@  9,c  say  "Minor" 
otherwise 

@  9,c  say  "Other" 

endcase 

if  c _ptype  =  "M"  .or.  c  Dtype  =  "P" 
<&  '. 10,5  say  "property  4:  " 

@  10 ,c  say  c_pnum 
endif 


I 


1 

SJ 


V 

V 
•J 

V 

3 

* 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,0  clear  to  23,79  ' 

@  22,22  say  "Is  this  the  correct  componer.*’  j 

@  23,29  say  "[  Yes  /  No  J" 

@  22,53  get  ans  picture  r'@!A" 
read 
enddo 

set  confirm  on 
@22,0  clear  to  23,79 

if  upper(ans)  =  "Y" 
locating  =  .f. 
located  =  .t. 
fmd_use  =  ,f. 

else 

@  22,11  say  The  -r . • •• • 

’  # 

delay  =  T 

do  vh : . e  del*  -i 
de-ay  *  :*  .  * 

er.ddc 

?  --  .**• 


i 
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a 


components  blank  - 
delay  =  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
endif 


endif  found 

if  (.not.  found()  .or.  .not.  on.file)  .and.  locating 
@  22,0  clear  to  23,79 
@  22,26  say  "Component  not  on  file  !!!" 
delay  =  0 

do  while  delay  <  40 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,22  say  "Is  this  the  correct  serial  #?: 
@  23,28  say  "[  Yes  /  No  1" 

@  22,52  get  ans  picture  "@!A" 
read 
enddo 

&  22,0  clear  to  23,79 
set  confirm  on 


if  upper (ans)  ■  "Y" 

@  22,18  say  "Check  the  component'^ ; 

"  serial  #,  part  usage, 

delay  *  0 

do  while  delay  <  40 
delay  *  delay  +  l 
enddo 

9  22,0  clear  to  22, 79 

usage  *  "  " 
component^  blank 
locating  *  .f. 
else 

@  22,20  say  "Please  re-enter  "+; 

"the  component  serial  #  or" 

delay  ■  0 

do  while  delay  <  40 
delay  =  delay  +  1 
enddo 

component  =  blank 
@  22,0  clear  to  22,79 
endif 


endif  not  found 


or" 


enddo  locating 
enddo  find_use 

checking  *  .t. 

do  while  checking  .and.  located 

mmod  =  blank 
mpart.ser  *  blank 
mptype  *  "  " 
mpnum  *  space (10) 

change.it  ■  .f. 

@  3,0  clear  to  20,79 

@3,0  say  "Fill  in  if  known i" 

@4,5  say  "Part  model*  " 
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@  4,c  get  mmod  picture  "@N!"-  - 
read 

®  5,7  say  "serial  #s  " 

@  5,c  get  mpart_ser  picture  "@N!" 
read 

set  confirm  off 

@6,10  say  "ptype:  (Plant/Minor/Other)" 

@  6,c  get  mptype  picture  "@N!" 
read 

do  while  .not.  mptype  $  "  oOmMpP" 
mptype  =  "  " 

@  6,c  get  mptype  picture  "@N!" 
read 
enddo 

set  confirm  on 

@7,5  say  "property  #:  " 

@  7,c  get  mpnum  picture  "@N!" 
read 

rec  =  -1 
more  =  .f. 
select  parts 

goto  top 
done  =  .f. 

=  .f. 

=  .f. 

=  .f. 

=  .f. 

=  .f. 

mpart_ser  <>  blank  .and.  .not.  done 
aa  =  .t. 
done  =  .t. 

if  known 

locate  for  partner  *  trim(mpart_ser)  .and.  • 

.  comp.ser  *  trim (component) 

else 

locate  for  partner  »  trim(mpart  ser) 
endif 

if  found() 

rec  =  recno() 
endif 
endif 

if  mmod  <>  blank  .and.  .not.  done 
bb  *  .t. 
done  =  .t. 

if  known 

locate  for  p_model  *  trim(mmod)  .and.; 

comp_ser  *  trim( component) 

else 

locate  for  pjnodel  ■  trim(mmod) 
endif 

if  found() 

rec  *  recno() 
continue 
if  found() 
more  *  . t. 
endif 
endif 

endif 

if  mptype  <>  "  "  .and.  .not.  done 
cc  *  .t. 
done  *  . t. 

if  known 

locate  for  p_ptype  *  mptype  .and.; 


aa 

bb 

cc 

dd 

ee 

if 


composer  =  trira(component) 

else 

locate  for  p_ptype  *  mptype 
endif 

if  found() 

rec  =  recno() 
continue 
if  found() 
more  =  .t. 
endif 
endif 
endif 

if  mpnum  <>  blank  .and.  .not.  done 
dd  =  .t. 
done  =  .t. 

if  knovm 

locate  for  pjpnum  =  mpnum  .and.; 

comp_ser  *  trim (component) 

else  J  , 

locate  for  p_pnum  =  trim (mpnum) 
endif 

if  found() 

rec  *  recno() 
continue 
if  found() 
more  *  . t. 
endif 
endif 
endif 

if  .not.  done 
ee  *  .t. 
done  *  .t. 

if  known  ,  , 

locate  for  composer  *  trim (component) 
if  foundO 

rec  *  recno() 
continue 
if  found() 
more  *  .t. 
endif 
endif 
else 

if  .not.  eof() 
rec  ■  recno() 
skip 

if  .not.  eof() 
more  ■  .t. 
endif 
endif 
endif 
endif 

do  case 

case  rec  <>  -1  .and.  .not.  more 
goto  record  rec 
I  3,0  clear  to  20,79 
$  3,0  say  "Only  one  part  on  filet" 

9  4,10  say  "model t  " 

9  4,c  say  pjnodel 

9  5,7  say  '’serial  it  " 


9  4-c 
|  5,7 
|  5,c 
9  6,4 
9  6,c 
9  7,2 

do  case 
case 


say  '’serial  it  " 
say  part.ser 
say  '’description!  " 
say  p.desc 
say  "property  typei 


»  R-Ptype  ■  "P" 

9  77c  say  "Plant" 


case  p  Dtype  =  "K"- 
@  TTc  say  "Minor 
otherwise 

9  7,c  say  "Other 

endcase 


II 

II 


“  V< 

®  i 
endif 

if  .not.  known 
do  case 

case  comoser  =  blank 

@10,4  say  "current  uses  STORAGE" 
case  comp_ser  <>  blank 

@10,4  say  "current  use:  COMPONENT" 
@11,6  say  "custodians  " 

@  11, c  say  comps -> las t_name  +; 

comps->  first  name 
@  13,12  say  "mfgs  " 

@  13, c  say  comps->  emfg 
@  14,10  say  "models  " 

@  14, c  say  comps->  c  model 
@  14,7  say  "serial  #:  " 

@  14, c  say  comps->comp_ser 
@  15,4  say  "descriptions  " 

@  15, c  say  comps->  c_desc 
endcase 
endif 


type  *  "M"  .or.  pj>type 
5,S  say  "property  #s  " 
5,c  say  p_pnum 


ft  p  II 


set  confirm  off 
ans  =  "  " 

do  while  .not.  ans 
ans 


$"yYnN" 


@  22,26  say  "Is  this  the  correct  part?:  s’ 
@  23,32  say  "[  Yes  /  No  1" 

@  22,52  get  ans  picture  f'@!A" 
read 
enddo 

set  confirm  on 
@  22,0  clear  to  23,79 


if  upper(ans)  *  "N" 

9  22,16  say  "Your  PART  cannot  be  found,  and"+; 

"  may  not  be  on  file" 

delay  *  0 

do  while  delay  <  40 
delay  =  delay  +  l 
enddo 

@22,0  clear  to  22,79 

component  *  blank 
usage  ■  "  " 
checking  *  . f. 

else  &&  ans  «  yes 

change_it  »  .t. 
checking  *  .£. 

@  22,0  clear  to  23,79 
endif 
endif  ans 


case  rec  »  -1 

9  22,16  say  "Your  PART  cannot  be  found,  and"+; 

"  may  not  be  on  file" 

delay  *  0 

do  while  delay  <  40 
delay  *  delay  *  1 
enddo 

9  22,0  clear  to  22,79 
component  «  blank 
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usage  *  "  " 
checking  *  . f. 

case  rec  <>  -1  .and.  more 
goto  rec 
still_more  *  .t. 
correct  *  .f. 


@  3,0  clear  to  20,79 

@3,0  say  "More  than  one  part  on  file?" 

@  4,0  say  "  (select  the  correct  part)" 


do  while  stilljttore 

@  5,c  clear  to  20.79 

@5,10  say  "model:  " 

@  5,c  say  p  model 

@6,7  say  ’'serial  #:  " 

@  6,c  say  part_ser 

@7,4  say  ’'description:  " 

@  7,c  say  p_desc 

@8,2  say  ’'property  type: 


do  case 

case  p  Dtype  =  "P" 

@  STc  say  "Plant" 
case  p  Dtype  =  "M" 

@  STc  say  "Minor" 
otherwise 

@  8,c  say  "Other" 

@  9,0  clear  to  9,79 

endcase 


II 


@  9 ,c 
endif 


e  ■  "M"  .or.  p jptype 
say  "property  #:  " 
say  p_pnum 


II  J>  II 


if  .not.  known 
do  case 

case  comp  ser  *  blank 

9  ll,f  say  "current  use:  STORAGE" 
case  comp  ser  <>  blank 

9  11, f  say  "current  use:  COMPONENT 


endcase 

endif 


9  13,12  say  "mfg:  " 

9  13, c  say  comps->cmfg 
9  14,10  say  "model:  * 

9  14, c  say  comps->c  model 
*  15,7  say  "serial  li  " 

15,  c  say  comps- >comp_ser 

16,4  say  "description:  " 

16,  c  say  comps->c_desc 

18,6  say  ’’custodian:  " 

18, c  say  comps -> las t_name  ♦; 

c omp s - > f i r s t^name 


set  confirm  off 
ans  *  "  " 

do  while  .not.  ans  $"aAyYnN" 
ans  ■  "  " 

9  22,26  say  "Is  this  the  correct  part?:  :" 
@  23,26  say  "[  Yes  /  No  /  Abandon  ]" 

9  22,52  get  ans  picture  "@! A" 
read 
enddo 

set  confirm  on 
9  22,0  clear  to  23,79 

if  upper (ans)  ■  "A" 
correct  ■  .t. 
stilljnore  ■  .f. 
component  ■  blank 
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II  II 


usage  3 
checking  *  .  f. 
endif 


if  eof() 

still^more  *  .f. 
checking  =  .f. 
endif 


if  upper (ans)  =  "N"  .and.  .not.  eof() 
skip 
do  case 
case  aa 

if  .not.  known  .and.; 

part_ser  =  trim(mpart_ser) 
rec  *  recno() 
still  more  =  .t. 
else 

still_more  =  .f. 
endif 


if  known  .and.; 

part_ser  *  trim(mpart_ser)  .and. 

comp_ser  =  trim (component) 
rec  *  recno() 
else 

still_more  *  .f. 
endif 


case  bb 

if  known  .and.; 

p_model  =  trim(mmod)  .and.; 

comp_ser  *  trim (component) 
rec  =  recno() 

else 

still_more  *  .f. 
endif 


if  .not.  known  .and.; 

p_model  *  trim(mmod) 

rec  «  recno() 
still_more  =  .t. 
else 

still_more  ■  .f. 
endif 


case  cc 

if  known  .and.  p_ptype  *  mptvpe  .and.; 

comp_ser  =  trim (component) 
rec  *  recno() 
else 

stilljnore  *  .f. 
endif 


if  .not.  known  .and.  pjptype  =  mptype 
rec  *  recno() 
stilljnore  *  .t. 
else 

stilljnore  *  .f. 
endif 


case  dd 

if  known  .and.; 

p_pnum  *  trim(mpnum)  .and.; 

comp  ser  =  trim (component) 
rec  =  recno() 
else 

still_more  *  .f. 
endif 


if  .not.  known  .and.; 

p_pnum  *  trim(mpnum) 
rec  »  recnoT) 


still_more  =  .t. 
else 

still_more  =  .f. 
endif 

case  ee 

if  knovm  .and.; 

comp  ser  *  trim (component) 
rec  *  recnoQ 
else 

still_more  »  .f. 
endif 

if  .not.  known  .and.  .not.  eof() 
rec  *  recno() 
still_more  =  .t. 
endif 

endcase 

endif 

if  upper(ans)  *  "Y"  .and.  .not.  eof() 
change_it  *  .t. 
correct  ■  .t. 
still^more  =  .f. 
checking  *  .f. 
endif 

enddo  still_more 

if  .not.  correct  .and.  .not.  still  more 
@  3,0  clear  to  20,79 

0  22,16  say  "Your  PART  cannot  be  found,  and"+; 

"  may  not  be  on  file" 

delay  *  0 

do  while  delay  <  50 
delay  ■  delay  +  1 
enddo 

@22,0  clear  to  22,79 
component  *  blank 
usage  »  "  " 
checking  «  .£. 
endif 

endcase 

enddo  checking 


if  change_it 

0  22,19  say  "Do  you  wish  to  modify  this  PART?*  s" 

0  23,26  say  "f  Yes  /  No  ]" 
set  confirm  off 
ans  *  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  ■  "  " 

9  22,52  get  ans 
read 
enddo 

set  confirm  on 
0  22,0  clear  to  23,79 

if  upper (ans)  ■  "N" 
change„it  ■  .f. 
else 

entering  ■  .  f. 
change_it  ■  .t. 
endif 
endif 

if  located  .and.  .not.  change_it 

9  22,16  say  "Do  you  have  additional  parts  to  modify?*  *' 
9  23,26  say  "[  Yes  /  No  ]" 

set  confirm  off 
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do  while  .not.  ans 
ans  =  «  " 

@  22.56  get  ans 
read 
enddo 

set  confirm  on 


$ 


"yYnN" 


if  upper (ans)  3  "N" 
set  confirm  off 
release  all 
close  databases 
return 
else 

component  =  blank 
usage  =  "  " 

@  22,0  clear  to  23,79 
endif 


endif 


enddo  entering 


if  change_.it 

*  allow  editing  the  part  record 

new_mfg  *  blank 
new_moa  *  blank 
new_desc  3  space (50) 
new_ser  =  blank 

new_ptype  3  "  " 
new_pnum  *  space (10) 

new_price  *  0.00 
new_reqn  *  blank 
new_use  3  "  " 
new_comp  *  blank 

changing_it  *.t. 
changed  =  .f. 

ok  »  .t.  &&  used  if  component  is  found 

do  while  changing_.it  .and.  .not.  changed 
@  3,0  clear  to  20,79 

@3,5  say  "Enter  corrected  Part  information" 

@  2$, 16  say; 

"Hake  required  changes,  press  RETURN  when  correct" 

@  5,10  say  "model:  " 

@  6,7  say  "serial  #:  " 

@  7,4  say  "description:  " 

new  mod  «  p_model 

@  5,c  get  new_mod  PICTURE  "@N!" 

read 

*  enter  mfg  serial# 

new  ser  *  part  ser 

@  6,c  get  part.ser  PICTURE  "@N!" 

read 

*  enter  description 

new_desc  3  p_desc 

@  7,c  get  new  desc  PICTURE  "@N!" 

read 

*  determine  if  stock  or  component  use 

set  confirm  off 
if  comp_ser  3  blank 
new_use  3  "S" 
else 

new  use  3  "C" 
endif 


4 
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@  9.1  say  "designated  use: 

@  9,20  say  "(Storage  /  Component)" 

@  9,c  get  new_use  PICTURE 
read 

do  while  .not.  new_use  $"CcSs" 
new_use  =  "  " 

@  9,c  get  newjase  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 

*  enter  component  serial#  for  use  *  C,  search  to  see  if  on  file 

*  comp_ser  =  blank  for  storage  use 

*  use  comps  for  use  =  C  component  ser  #  mandatory 

*  storage  use 

if  upper(new_use)  *  "S" 
new_comp  =  blank 
endif 

*  component  use 

if  new_use  =  "C" 

@  10,0  clear  to  13,79 
@11,6  say  "Component" 

@12,6  say  "serial  #:  " 

searched  =  . f. 
do  while  .not.  searched 
no_ser  ■  .t. 
do  while  no_ser 

new  comp  =  comp_ser 

@  l2,c  get  new_comp  PICTURE  "@!N" 

read 

if  new  comp  *  blank 

@  22,0  clear  to  22,79 
@  22,20  say  "Component* s"+? 

"  serial  #  may  not  be  blank 

delay  *  0 

do  while  delay  <  25 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_ser  *  .f. 
endif 

enddo  no  component  serial# 

*  check  to  see  if  on  file 

select  comps 
goto  top 
set  order  to  1 
goto  top 
on_file  *  .f. 
done  ■  . f. 

if  eofQ 

on_xile  ■  .f. 
else 

seek  trim(new_comp) 
endif 

if  foundO 

searched  =  .  t. 
on_file  =  ,t. 
done  «  . t. 
endif 

if  .not.  foundO  .or.  .not.  on.file 
9  22,0  clear  to  22,79 
@  22,22  say  "Component  not  on  file  !!!" 
delay  ■  o 

do  while  delay  <  25 


delay  =  delay +  1 
enddo 

@22,0  clear  to  22,79 
set  confirm  off 


do  while  .not.  ans  $"yYnN" 
ans  =  "  " 

@  22,20  say  "Is  this  the  correct"*? 

"  serial  #?:  :" 

@  23,26  say  "[  Yes  /  No  ]" 

@  22,50  get  ans  picture  rt@!A" 
read 
enddo 

@22,0  clear  to  23,79 
set  confirm  on 


if  upper(ans)  *  "Y" 
searched  =  . t. 
ok  *  .f. 

ehanging_it  *  .f. 
done  =  :I. 

@  22,15  say  "This  component  must  "+? 

"be  entered  first" 


delay  ■  0 

do  while  delay  <  25 


delay  *  delay  *  1 
enddo 

@  22,0  clear  to  22,79 


22,15  say  "Please  re-enter  the  component"*? 


delay  *  0 

do  while  delay  <25 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
endif 


senaj 


endif  not  found 
enddo  searched 


endif  use  »  Component 
if  ok 

*  enter  property  type  (mandatory) 
select  parts 
goto  rec 

set  confirm  off 

@14,2  say  "property  type?  " 

@  14,20  say  "(Plant  /  Minor  /  Other)" 

new  d type  *  p _ptype 
@  lf,c  get  new_ptype  PICTURE  "@!A" 

read 

do  while  .not.  new  otype  $  "mMoOpP" 
new jp type  *  p_ptype 
@  lT,c  get  newjptype  PICTURE  "@!A" 
read 
enddo 

set  confirm  on 


*  no  property#  for  other  type  property 

if  upper (new_ptype)  *  "O" 


new _pnum  *  space (10) 
endif 


&&  ensure  it  is  blank 


*  enter  property#  (mandatory  for  plant  and  minor  property  types) 
if  upper (new_ptype)  ■  "M"  .or.  upper (new_p type 
@15,5  say  ^property  #»  " 


@15,5  say  ^property 
no_num  ■  .  t . 
do  while  no_num 


)  a  »p" 


R 


IV 

k 


I 


I 


s 

I 


K 


I 


\:n 


% 


*  * 


new  Dnum  =  p_pnum-  ' 

@  lF,c  get  new_pnum  PICTURE  "@N!" 
read 

if  new  Dnum  =  space (10) 

@22,12  say  "Minor  and  Plant  property  "+; 

"require  a  property  number  " 

delay  *  0 

do  while  delay  <  25 
delay  =  delay  +  l 
enddo 

@  22,0  clear  to  22,79 
else 

no_num  =  . f . 
endif 
enddo 
endif 

*  enter  price  and  requisition# 

@  17,10  say  "price!  $" 

@  18,9  say  "regn  #«  " 
newjprice  *  p_pnce 
new  reqn  =  p_reqn 

@  T7,c  get  newjprice  PICTURE  "@R  9,999.99" 

@  18, c  get  new_reqn  PICTURE  "@!R  9999-NNNN/NNNNN" 

read 

set  confirm  off 
@  22,0  clear  to  23,79 
ans  =  "  " 

do  while  .not.  ans  $"aAyYnN" 
ans  =  "  " 

@  22,25  say  "Are  the  modifications  correct?: 

@  23,29  say  "[  Yes  /  No  /  Abandon]" 

@  22,56  get  ans  picture  "@!A" 
read 
enddo 

@22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  *  "A" 
changing_it  *  .f. 
endif 

if  upper (ans)  *  "Y"  &&  add  mvar  to  dbf 

changed  *  . t. 
endif 

endif  ok 

enddo  changed  or  change ing  it 
endif  change_it 

if  original  record  was  changed  replace  the  old  fields 
with  tne  new  ones 

if  changed 

set  confirm  off 
@  22,0  clear  to  22,79 
ans  =  "  " 

do  while  .not.  ans  $"yYnN" 
ans  *  "  " 

@  22,22  say  "Do  you  wish  to  file  the  modified  part?:  :" 

@  23,29  say  "[  Yes  /  No  1" 

@  22,61  get  ans  picture  rt@!A" 
read 
enddo 

@  22,0  clear  to  23,79 
set  confirm  on 

if  upper (ans)  *  "N" 
changed  ■  . f. 
endif 


if  upper(ans)  =  "Y"  &&  add'mvar  to  dbf 

@  22,20  say  "Standby  while  your  entry  is  placed  on  file" 

*  place  in  parts 

select  parts 
goto  rec 

replace  p_model  with  trim(new  mod) 
replace  p_desc  with  trim(new_3esc) 
replace  part_ser  with  tnm(new_ser) 
replace  comp_ser  with  trim(new_comp) 
replace  p_ptype  with  new  Dtype 
replace  p_pnum  with  trimTnew_pnum) 
replace  pjprice  with  newjpnce 
replace  p_reqn  with  trim"(new_reqn) 

changed  =  .f. 
endif 

endif  changed 

if  .not.  changed 

9  22,0  clear  to  23,79 

9  22,18  say  "Do  you  have  additional  part"+; 

"  records  to  modify?: 

9  23,34  say  "[  Yes  /  No  ]" 
set  confirm  off 
ans  =  "  " 

do  while  .not.  ans  $  "yYnN" 
ans  =  "  " 

@  22,65  get  ans 
read 
enddo 

if  upper (ans)  =  "N" 
finisned  =  .t. 
clear 

else  &&  set  up  for  the  next  one 

9  22,0  clear  to  23,79 

entering  =  .t. 

usage  *  "  " 

mmoa  *  blank 

description  =  space(50) 

mpart^ser  =  blank 

mptype  =  "  " 

mpnum  =  blank 

component  =  blank 
mc_mod  =  blank 
mc_mfg  =  blank 
mc_desc  ■  space (50) 
mcjptype  *  "  " 
mcjpnum  =  blank 
lname  *  blank 
fname  =  blank 

known  *  .f. 
finished  s  . f. 
change_it  =  .f. 
ok  =  ,t. 

@  3,0  clear  to  20,79 
endif 

endif  not  changed 
enddo  finished 

set  confirm  off 
release  all 
close  databases 
return 
enddo 

*  EOF  modpart.prg 


15.  MOD_HELP.PRG 

*********************  Program:  MOD_HLP.PRG 


*Author . .  TIM  SEXTON 

^Purpose .  describes  the  options  available  to  the 

*  user 

. .  None 

i k 


*Input/Output  Files.:  None 

*  begin  the  text  dialogue 
clear 

@0,14  say  "MODIFY  PROPERTY  HELP  SCREEN" 

@  1,0  to  1,79  double 

text 


*  Modifications  are  made  to  components  and  parts 

changing  accountability  or  to  the  record  itself 

*  Imperative  the  correct  serial  number  be  inputted 

in  all  cases 

*  Modifications  are  only  accomplished  to  existing  data 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 
clear 

@  1,0  to  1,79  double 
text 

"CAUTIONS" 

*  Extremely  important  that  all  information  is 

entered  correctly 

*  Mistakes  will  be  made  so  utilize  the  "NO"  or 

"ABANDON"  commands  before  resuming 

*  Recommend  using  DELETION  and  ARROW  keys  for 
modifying  data  entered  and  ensure  not  to  deviate 
outside  designated  fields 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  for  more  help  or  ESC  to  exit" 
clear 

@  1,0  to  1,79  double 
text 


"WARNINGS" 

*  Use  of  BACKSPACE  key  can  cause  PREMATURE  exiting 

of  an  entry  field,  loop  back  for  re-entrance  of 
data 

*  Serial  Numbers  must  be  accurate  and  precise 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 

*E0F  MOD_HELP.PRG 


16.  OWNERS.PRG 


*********************  Programs  OWNERS.PRG  ********************** 


*Author . .  TIM  SEXTON 

^Purpose .  displays  the  entire  file  of  custodians,  and 

*  locations  that  they  have  property 

*Calls . .  None 


*Input/Output  Files.:  None 


clear 

set  confirm  on 
set  headings  off 

select  1 

use  homes  index  l_fnames 
select  2 

use  owners  index  names 

set  relation  to  last_name  *  first  name  into  homes 


end_list  =  .f. 
do  while  .not.  endlist 


lname  =  space (15) 
fname  *  space (15) 


fname  *  space 
line  =  5 
cl  =  0 
c2  =  31 
c3  =  43 


@  0,20  say  "CUSTODIAN 
@  1.0  to  1,79  double 
<3  21,0  to  21,79 


LISTINGS" 


@  3,cl+3  say  "Custodian" 

@  3,c2  say  "office" 

@  3,c3+3  say  "Home  Address" 


do  while  .not.  eof() 
do  case 

case  last_name  =  "AS  DEPT" 
skip 

otherwise 

@  line, cl  say  trim(last_name)  +  ",  "  +  first_name 

if  location  <>  "HOME" 

@  line,c2  say  location 
endif 

if  location  ■  "HOME" 

@  line,c3  say  trim(homes->street)  +? 

",  "  +  homes->city 

endif 

line  =  line  +  2 
skip 

do  case 


case  lname  *  last  name  .and.  fname  =  first_name,- 
•and.  location  =  ^HOME" 


if  line  =  5 

@  line,c3  say  trim(homes->street)  +; 

",  "  +  homes->city 

else 

@  line  -  2,c3  say  trim(homes->street)  +; 

",  "  +  homes->city 

endif 

skip 
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endcase 

Inane  *  last.name 
fname  *  first_name 

if  line  >  20 
•> 


wait; 

space(16)+"Press  any  key  to  continue,  or  ESC  to  exit" 
<3  4,0  clear  to  20,79 
@  22,0  clear  to  24,79 
line  =  5 
endif 

endcase 

enddo 

if  eof ( ) 

0  22,25  say  "  That  is  everyone  on  file  " 
delay  =  0 

do  while  delay  <  25 
delay  =  delay  +  1 
enddo 

9  22,25  clear  to  22,79 
@  22,15  say,- 

"Press  any  key  to  return  to  Search  and  Listing  Menu" 
end.list  *  .t. 
wait  "  " 
endif 

close  databases 
release  all 
return 

enddo 

*  EOF  owners. prg 


PMANF.PRG 


*********************  program:  PMANF.PRG  ************** 

*Author . .  TIM  SEXTON 

^Purpose . .  displays  the  components  by  mfg  searches 

*  on  c_mfg 

. .  None 

* 

*Input/Output  Files.:  None 


******************** 


clear 

set  confirm  on 
select  1 

use  owners  index  names 
select  2 

use  comps  index  name_loc 

set  relation  to  last_name  +  first.name  into  owners 

end.list  *  .f. 
do  while  .not.  end_list 

blank  *  space (15) 
mmfg  *  blank 


@  0,14  say; 

"COMPONENT  MFG  SEA 
<3  1,0  to  1,79  double 
9  21,0  to  21,79 

9  22,25  say  "To  EXIT  leave  mfg  name  blank" 


MFG  SEARCH  SCREEN" 


4.6  say  "Enter  Mfg" 

6.6  say  "  name:  "  get  mmfg  PICTURE  "@!N" 


read 

if  mmfg  *  blank 
clear 

release  all 
close  databases 
return 
endif 

@  22,0  clear  to  22,79 

goto  top 
set  exact  off 

locate  for  c_mfg  =  ltrim(mmfg) 


line  *  6 
cl  =  10 
c2  =  28 
c3  =  55 

if  found() 

@  2,0  clear  to  20,79 
@2,1  say  "MFG:" 

@2,6  say  mmfg 

@  3, cl  say  "Model" 

@  4, cl  to  4,cl+5 
@  3,c2  say  "Custodian" 

@  4,c2  to  4,c2+9 
@  3,c3  say  "Location" 

@  4,c3  to  4,c3+8 

do  while  .not.  eof() 

@  line, cl  say  c_model 
do  case 

case  last_name  *  "AS  DEPT" 

@  line,c2  say  lastname 

@  line,c3  say  trimTowners->location)  +  ",  "  +,* 
first_name 

otherwise 

@  line,c2  say  trim(last_name)  +  ",  "  +  first_name 
if  loc  code  *  "H" 

@  line,c3  say  "HOME" 
else 

@  line,c3  say  owners->location 
endif 

endcase 

@  line+1,15  sav  "->  "  +  c  desc 
line  a  line  +  3 

if  line  >  20 

@  22,20  say  "Press  any  key  to  continue,  or  ESC  to  exit" 
wait  »  " 

@  6,0  clear  to  20,79 
@  22,0  clear  to  24,79 
line  ■  6 
endif 

continue 
if  eofO 

@  22,27  say  "Nothing  further  is  on  file" 
delay  =  0 

do  while  delay  <  50 
delay  =  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
endif 

enddo 

else 

@  22,0  clear  to  22,79 

@  22,27  say  "Nothing  is  on  file  for  this  mfg" 
delay  *  0 


m 


do  while  delay  <  SO 
delay  *  delay  +1 
enddo 

<3  22,0  clear  to  22,79 
endif 

@  22,15  say  "Press  any  key  to  return  to  Search  and  Listing  Menu" 
end_list  *  .t. 
wait  "  " 

close  databases 
release  all 
return 

enddo 

*  EOF  pmanf.prg 


PMOD.PRG 


********************** 


*********************  Program:  PMOD.PRG  ******************* 
^Author . .  TIM  SEXTON 

^Purpose . .  displays  the  components  by  model  searches 

*  on  c_model 

. .  None 

* 

*Input/Output  Files.:  None 
clear 

set  confirm  on 
select  1 

use  owners  index  names 
select  2 

use  comps  index  name_loc 

set  relation  to  last_name  ♦  first_name  into  owners 

end_list  *  .f. 
do  while  .not.  end_list 

blank  *  space (15) 
mmod  *  blank 


@0,12  say,- 
"C  0  H  I 


"COMPONENT  MODEL  SEARCH  SCREEN" 
@  1,0  to  1,79  double 
@  21,0  to  21,79 

@  22,22  say  "To  EXIT  leave  model  name  blank" 

@4,6  say  "Enter  Model" 

@6,6  say  "  name:  "  get  mmod  PICTURE  "@IN" 
read 

if  mmod  *  blank 
clear 

release  all 
close  databases 
return 
endif 

@22,0  clear  to  22,79 

goto  top 
set  exact  off 

locate  for  c_model  ■  ltrim(mmod) 

line  *  6 
cl  ■  10 
c2  *  23 
c3  =  55 

if  found() 

@  2,0  clear  to  20,79 


S 

% 

r 

j; 

y, 


& 

I 

5* 


<3  2,1  say  "MODEL:" 
d  2,8  say  mmod 


9  3, cl  say  "Mfg" 
d  4, cl  to  4,cl+3 
d  3,c2  say  "Custodian" 
d  4,c2  to  4 , c2+9 
d  3,c3  say  "Location" 
d  4,c3  to  4,c3+8 


do  while  .not.  eo£() 
d  line, cl  say  c_mfg 
do  case 

case  last_name  =  "AS  DEPT" 
d  line,c2  say  last  name 
d  line,c3  say  trimTowners->location) 
first_name 

otherwise 

d  line,c2  say  trim(last_name)  ♦  ",  " 
if  loc  code  =  "H" 

d  Iine,c3  say  "HOME" 
else 

d  line,c3  say  owners->location 
endif 

endcase 

d  line+1,15  say  "->  "  +  c_desc 
line  =  line  +  3 


+  'i 

T  /  t 


+  first  name 


if  line  >  20 

d  22,20  say  "Press  any  key  to  continue,  or  ESC  to  exit" 
wait  "  " 

d  6,0  clear  to  20,79 
d  22,0  clear  to  24,79 
line  *  6 
endif 


continue 


if  eofQ 

d  22,27  say  "Nothing  further  is  on  file" 
delay  *  0 

do  while  delay  <  50 
delay  =  delay  +  1 
enddo 

d  22,0  clear  to  22,79 
endif 


enddo 


else 

d  22,0  clear  to  22,79 

d  22,25  say  "Nothing  is  on  file  for  this  model" 
delay  *  0 

do  while  delay  <  50 
delay  *  delay  +  1 
enddo 

d  22,0  clear  to  22,79 
endif 

d  22.15  say  "Press  any  key  to  return  to  Search  and  Listing  Menu" 
end  list  »  .t. 
wait  "  " 

close  databases 
release  all 
return 

enddo 

*  EOF  pmod.prg 


113 


' WWl 


19.  PROPERTY.PRG 


********************* 

*Author . 

*Purpose . 

*Calls . 

* 

*Input/Output  Files.: 


Program:  PROPERTY.PRG  *************** 
TIM  SEXTON 

Main  Menu  displays  the  various  tasks  that  are 
available  for  the  user. 

ADDMENU . PRG ,  MODMENU . PRG ,  DELMENU . PRG , 

REPORTS. PRG,  ADHOC.PRG 
None 


**********  set  up  the  working  environment  ********** 

*  restricts  the  control  and  interfaces  strictly  to  this 

*  application,  and  not  with  dBase  III  plus 

set  color  to  gr+/b,  r/w,  b,  b 

close  databases 

clear 

clear  all 

set  talk  off 

set  echo  off 

set  scoreboard  off 

set  bell  off 

set  status  off 

set  safety  off 

set  deleted  on 

on  escape  return 

*  display  the  opening  screen 
text 


Property  Management  System 

The  Property  Management  System  is  an  application  program  to 
assist  the  Admin  Science  Dept  in  maintaining  accountability 
for  departmental  property. 

endtext 

7 

7 

7 

7 

wait 


*  Check  the  users  password  for  their  access  rights,  exit  the 

*  application  program  if  no  proper  password 

clear 

set  intensity  off 
set  confirm  on 


@  8,20  to  11,60  double 
no_code  *  .t. 
do  while  nojcode 

@  9,21  clear  to  10,59 
9  9,23  say  "ENTER  YOUR  PASSWORD:  " 

9  10,23  say  "  (or  press  return  to  quit)" 

*  hide  the  password  typed  by  changing  inputs  to  the  same  color  as 

*  the  background,  set  it  back  after  input  entered 

set  color  to  b/b,  b/b,  b,  b 

@9,44  get  password 

read 

set  color  to  gr+/b,  r/w,  b,  b 
do  case 

case  password  »  space (10) 

set  color  to  w/n,  n/w,  n,  n 


quit 

release  all 
clear 

case  lower (password)  *  "limited" 
access  *  "read_only" 
no_code  =  .f. 

case  lower (password)  *  "unlimited" 
access  =  "read_write" 
no_code  =  .f. 
otherwise 

@  9,21  clear  to  10,59 

@9,23  say  "IMPROPER  PASSWORD,  PLEASE  RE-ENTER" 
delay  =  0 

do  while  delay  <25 
delay  =  delay  ♦  1 
enddo 

password  -  space (10) 

endcase 

enddo 

clear 

set  intensity  on 


*  the  program  begins,  the  start  of  the  dialogue  unit,  similar 

*  menu  screens  are  used  for  options  1-5 


screens 
do  while  .t. 

set  confirm  off 
clear 


2.10  to  17,69  double 

3,25  say  "Property  Management  Main  Menu" 

4.11  to  4,68  double 


6.27  say 

7.27  say 


0  9,27  say 
9  10,27  say 
9  11,27  say 

@  13,27  say 

@  15,27  say 
0  17,30  say 


1 

2 

3 

4 

5 

H 

0 


LISTS  or  SEARCHES" 
PRINT  REPORTS" 


ENTER  new  property" 

DELETE  property" 

MODIFY  property" 

HELP" 

Exit  to  MS  DOS" 
selection  s  :  " 

choice 
@  17,42  get  choice 
read 

*  display  an  asterisk  next  to  the  choice,  choice  row  used  for 

*  erasing  other  rows 

if  choice  S"hH0l2345" 
do  case 

case  upper (choice)  *  "H" 

0  13,26  say  ■'*" 
choice row  *  13 

case  choice  ■  "0" 

0  15,26  say 
choicerow  ■  15 

case  choice  $"12" 

@  5+val(choice) ,26  say 


<i*ii 


choicerow  «  5*val( choice) 
otherwise 

0  6+val( choice) ,26  say 
choicerow  ■  6+val( choice) 

endcase 

firstrow  ■  6 
rows  *  10 
rowcnt  *  0 

do  while  rowcnt  <  rows 
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*  * 


do  choice,  access  must  match  the  password  a  user  entered 
this  is  the  control  section  of  this  program 

do  case 

case  choice  =  "0" 

set  color  to  w/n,  n/w,  n,  n 
quit 

case  choice  =  "1" 

if  lower(access)  *  "read  only"  .or.; 

lowerl access)  *  "read  write" 

do  adhoc 
else 

@  19,10  say; 

"******  you  do  not  have  proper  access"*; 

"  for  this  selection  ******* 

? 

wait 

loop 

endif 


case  choice  *  "2" 

if  lower(access)  *  "read  only"  .or.; 

lowerl  access)  *  "read_write" 

do  reports 
else 

@  19,10  say; 

" ******  you  do  not  have  proper  access"*; 

"  for  this  selection 


wait 

loop 

endif 


case  choice  *  "3" 

if  lower(access)  *  "read_write" 
do  addmenu 
else 

0  19,10  say; 

h******  yOU  not  have  proper  access"*; 

"  for  this  selection  ******" 

7 

wait 

loop 

endif 


case  choice  ■  "4" 

if  lower(access)  *  "read_write" 
do  delmenu 
else 

9  19,10  say; 

"******  you  do  not  have  proper  access"*; 

"  for  this  selection  ******* 

» 

wait 

loop 

endif 

case  choice  *  "5" 


if  lower (access) 
do  modmenu 
else 


*  "read_write" 


9  19,10  say; 

"******  you  do  not  have  proper  access"*; 

"  for  this  selection  ******" 

? 

wait 
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loop 

endif 


case  upper(choice)  *  "H" 
do  main_hlp 


otherwise 

@  19,22  say  "******  not  a  valid  selection  ******* 
•> 

wait 

loop 

endcase 

enddo 

*  EOF  property. prg 


20.  QRY.HELP.PRG 

*********************  Program:  QRY  HELP. PRG  ****************** 


^Author .  TIM  SEXTON 

*Purpose . describes  the  options  available  to  the 

*  user 

*Calls .  None 

■k 


*Input/Output  Files.:  None 

*  begin  the  text  dialogue 
clear 

@  1,0  to  1,79  double 

@  0,15  say  "LIST  AND  SEARCH  HELP  MENU" 
text 


*  Searches  are  designed  to  provide  the  user  with 
the  following  lists s 

1.  Custodians  on  file 

2.  Locations  of  Components  of  interest 

3.  Custodians  of  various  Components 

4.  A  List  of  a  Manufacturer's  Components 

5.  A  List  by  Model  of  Components 

*  Component  Lists  will  provide  the  Component 

location 

*  To  search  on  a  custodian,  ensure  the  name  is 
entered  as  it  is  kept  on  file.  Option  #  3  will 
provide  a  list  of  all  custodians. 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 

*EOF  QRY_HELP . PRG 


21.  QTR.RPT.PRG 


*Author . . 

^Purpose . 

k 

k 

k 

k 


* 

*Calls 


Program:  QTR_RPT.PRG  ************** 

TIM  SEXTON 

?rints  three  reports 
.  components  grouped  by  custodian  and 
location 

2.  parts  grouped  by  custodian  and  component 
3.  parts  that  are  not  assigned  to  components 
(stock)  involves  creating  temporary  files  that 
are  erased  after  the  reports  are  printed 
TEMP.FRM,  TEMP3.FRM,  STOCKP ART . FRM, COMPS .DBF, 


C 

V 

y 
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*  PARTS. DBF, OWNERS. DBF 

*Input/Output  Files . :  none 


*  This  program  will  join  the  owners  and  components  to  allow 

*  printing  the  component  and  property  reports 

set  confirm  off 
set  exact  on 

clear 


select  1 
use  parts 

select  2 
use  owners 

select  3 
use  comps 

do  while  .t. 

@0,18  say  "QUARTERLY  REPORT  SCREEN" 

@  1,0  to  1,79  double 
@  21,0  to  21,79 

@8,16  say  ************  SET  UP  THE  PRINTER  ************ 

@22,6  say  "Standby  while  the  files  are  joined  for  preparing"*; 

"  the  property  reports" 

*******  temp  is  used  to  join  campus  owner  with  component  ******* 
select  comps 

join  with  owners  to  temp  for  loc_code  <>  "H"  .and.  owners->; 
location  <>  "HOME"  .and.  last_name  =  owners->last_name  .and.; 
first_name  =  owners->first_name 

*******  temp2  is  used  to  join  home  owner  with  component  ******** 

join  with  owners  to  temp2  for  loc_code  *  "H"  .and.  owners->? 
location  =  "HOME"  .and.  last_name  *  owners->last_name  .and.; 
first_name  =  owners->first_name 

***************  temp 2  is  then  appended  to  temp  ***************** 
**************  temp  is  used  for  component  report  *************** 

select  4 
use  temp 

append  from  temp2 

index  on  last_name  ♦  first_name  +  location  +  c_mfg  +; 

cjnodel  to  temp 

**************  temp3  is  used  for  part  report  ******************  * 
join  with  parts  to  temp3  for  comp_ser  =  parts->comp_ser 

select  5 
use  temp3 

index  on  last_name  ♦  first_name  +  location  ♦  c_mfg  +  c_model  +  ; 
comp_ser  to  temp3 

close  databases 


*  check  if  printer  is  set  up  or  allow  abandon  current  operation 

done  *  . f. 

ready  ■  .f. 

do  while  .not.  ready 

@  8,0  clear  to  8,79 


9  22,0  clear  to  23,79 

@  22,22  say  "Is  the  printer  ready  for  printing?: 
@  23,22  say  "  [  yes  /  No  /  Abandon  ]" 


ans  *  "  " 

do  while  .not.  ans  $  "yYnNaA" 
ans  *  "  " 

@  22,57  get  ans  picture  "@!A" 
read 
enddo 

@22,0  clear  to  23,79 

*  if  not  ready  wait  and  loop 
if  upper (ans)  =  "N" 

|  3,18  say  "Press  any  key  when  ready  to  ready  to  continue" 
wait  "  " 

9  8,0  clear  to  8,79 
endif 


if  upper (ans)  * 
ready  =  .t. 
done  *  .t. 
endif 


if  upper (ans)  = 
ready  *  .t. 
endif 


enddo  not  ready 

if  .not.  done 
clear 

select  1 

use  temp  index  temp 

*************  do  the  component  report 

report  form  temp  to  print 

select  2 

use  temp3  index  temp3 

***********  jo  the  part  property  report 

report  form  temp3  to  print 

select  3 
use  parts 

***********  do  the  stock  part  list 

report  form  stokpart  to  print  for  comp_ser  =  space (10) 

done  =  .t. 
endif  not  done 

if  done 

erase  temp.dbf 
erase  temp2.dbf 
erase  temp3.dbf 
erase  temp.ndx 
erase  temp3.ndx 

clear 

release  all 
close  databases 
return 

endif  done 
enddo 

*eof  qtr_rpt.prg 


119 


.v  v 


O' 


22.  REPORTS.PRG 


AAAAAAAAAAAMAAAAAAAA 


^Author . . 

*Purpose . 

* 

*Calls . . 


*Input/Output  Files.: 


Program:  REPORTS.PRG 
TIM  SEXTON 

Menu  displays  the  choices:  print  a 
property  report  or  a  summary  report 
property  type  and  number 
QTR  RPT.PRG,  SUM_RPT.PRG 
NONE 


******************* 


quarterly 


*  set  screen  environment 
clear 

set  confirm  off 

*  dispalay  the  dialogue  menu 
do  while  .t. 

clear 

@  2,10  to  13,69  double 

<t  3,30  say  "Property  Reports  Menu" 

@  4,11  to  4,68  double 

@  6,27  say  "  1  -  QUARTERLY  report" 

@  7,27  say  "  2  -  PROPERTY  SUMMARY  report" 

@  9,27  say  "  H  -  HELP" 

@  11,27  say  "  0  -  RETURN  to  main  menu" 

@  13,30  say  "  selection  :  :  " 

choice  =  "  " 

@  13,42  get  choice 
read 

*  place  an  asterisks  next  to  a  valid  choice,  and  erase  the  other 

*  rows 

if  choice  $  "hH012" 
do  case 

case  upper (choice)  *  "H" 

@  9,26  say  »*" 
choicerow  =  9 
case  choice  *  "0" 

<3  11,26  say 
choicerow  *  11 
otherwise 

@  5+val(choice) ,26  say 
choicerow  =  5+val( choice) 

endcase 

firstrow  *  6 
rows  =  7 
rowcnt  »  0 

do  while  rowcnt  <  rows 

if  rowcnt+firstrow  <>  choicerow 

<3  firstrow+rowcnt,27  say  space (30) 
endif 

rowcnt  »  rowcnt  +  1 
enddo 
endif 


*  do  choice  if  valid,  or  loop  back  thru  this  program 


»0" 


do  case 

case  choice 
return 

case  choice  »  "1" 
do  qtr_rpt 
case  choice  »  "2" 
do  sumrpt 
case  upperl  choice) 
do  rpt_nelp 
otherwise 


"H" 
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|  17,22  say  "******  not  a  valid  'selection  ******" 

wait 

loop 

endcase 

enddo 

*EQF  reports. prg 


23.  RPT_H  ELP.PRG 

kk**a****jIc*^**xkx****  Program:  RPT  HELP. PRG  ****************x* 


X 

’'Author .  TIM  SEXTON 

"Purpose .  describes  the  options  available  to  the 

*  user 

"Calls . :  None 

k 


"Input/Output  Files.:  None 

*  begin  the  text  dialogue 
clear 

@  1,0  to  1,79  double 

@0,13  say  "PROPERTY  REPORTS  HELP  SCREEN" 
text 


*  Ensure  Printer  is  ON  and  READY 

*  Reports  are  pre-formatted 

*  Provides  two  types  of  Reports,  namely: 

**  Quarterly-— Grouped  by  Custodian/Owner 

**  Summary - Grouped  by  Property  Type 

and  Property  Number 

endtext 

@  21,0  to  21,79 

Wait  "  ->  press  any  key  to  exit" 

*EOF  RPT_HELP.PRG 


24.  SLOCATIO.PRG 

*********************  Program:  SLOCATIO.PRG  ******************** 


x 

^Author . . . :  TIM  SEXTON 

*Purpose . :  displays  components  and  the  location 

*  of  the  component  ,  searches  on  loc_code 

. .  None 


*Input/Output  Files.:  None 


set  headings  off 
set  confirm  off 


select  a 

use  comps  index  name_loc 

finished  »  .f. 
do  while  .not.  finished 
clear 


iVtleHj 


ans  =  "  " 

@0,11  say? 

"COMPONENT  LOCATION 
@1,0  to  1,79  double 
@  21,0  TO  21,79 

@  22,26  say  "Leave  choice  blank  to  EXIT" 

@  4,27  say  "  LOCATIONS" 

@  7,27  say  "1.  HOME  or  OFFICE" 

@  9,27  say  "2.  STORAGE" 

@  11,27  say  "  3.  LAB  " 


LOCATION  LIST  SCREEN' 


'STORAGE  COMPONENTS" 


@  4,27  say  "  LOCATIONS" 

@  7,27  say  "1.  HOME  or  OFFICE" 

@  9,27  say  "2.  STORAGE" 

@  11,27  say  "  3.  LAB  " 

no_ans  *  ,t. 
do  while  no  ans 

@  16,20  SAY  "PLEASE  ENTER  YOUR  CHOICE:"  get  ans 
read 

if  ans  S  "  123" 
no_ans  *  ,f. 
else 

ans  =  "  " 
endif 
enddo 

if  ans  <>  "  " 
clear 
do  case 

case  ans  =  "1" 
code  =  "P" 

@0,28  say  "PERSONNEL  COMPONENTS" 

case  ans  ■  "2" 
code  ■  "S" 

@0,28  say  "STORAGE  COMPONENTS" 

case  ans  =  "3" 
code  ■  "L" 

@0,28  say  "LAB  COMPONENTS" 

endcase 

goto  top 
@  1,0  to  1,79 
@  21,0  to  21,79 

if  code  =  "P" 

do  while  .not.  eof() 

if  last_name  =  ''AS  DEPT" 
skip 
else 

line  *  7 

lname  *  last_name 
fname  ■  first_name 
@3,4  say  "Custodian;  " 

@3,15  say  trim(lastname)  +  "  ,"  +  first_name 
@5,2  say  "Mfg/Model" 

@  6,2  to  6,10 
@  5,32  say  "Serial  #" 

@  6,32  to  6,39 

@5,50  say  "Ptype  &  number" 

@  6,50  to  6,63 
@  5,72  say  "Location" 

@  6,72  to  6,79 

do  while  last_name  =  lname  .and.  first_name  =  fname 

if  loc  code  *  "O"  .or.  loc  code  *  "H" 

@  iine,0  say  trim(c_mfg)+"  /  "  +  c_model 
@  line, 32  say  comp_ser 
@  line, 50  say  c_ptype  +  "  -  "  +  c_pnum 
if  loc  code  =»  "O" 

@  Tine, 72  say  "Office" 
endif 

if  loc  code  =  "H" 

@  line, 72  say  "Home" 


+  cjpnum 


v 


■svv: 


endif 

line  *  line  +  2 
skip 

if  line  >  20  .and.  (last  name  =  lname; 

.and.  first  name  =  fname) 

@  22,0  clear  to  22,79 

@22,4  say  "Additional  property"*; 

"  on  file  for  this  Custodian,  press"*; 
"  any  key  to  continue" 
wait"  " 

@  7,0  clear  to  20,79 
@  22,0  clear  to  22,79 
line  =  7 
endif 
else 
skip 
endif 

if  last  name  <>  lname  .and.  first  name  <>  fname 
@  2?, 0  clear  to  22,79 
@22,4  say  "That  is  all"+; 

"  that  is  on  file,  press  any"*; 

"  key  to  continue,  or  ESC  to  exit" 
wait"  11 
line  =  7 

@  3,15  clear  to  3,79 
@7,0  clear  to  20,79 
@  22,0  clear  to  22,79 
endif 

enddo 

endif 

enddo 

endif 

if  code  *  "S" 

lname  ■  "AS  DEPT" 
seek  lname 

if  found() 
line  =  7 

@3,4  say  "Custodian;  " 

@3,15  say  "AS  DEPT" 

@  5,2  say  "Mfg/Model" 

@  6,2  to  6,10 
@  5,32  say  "Serial  #" 

@  6,32  to  6,39 

@5,50  say  "Ptype  &  number" 

@  6,50  to  6,63 
@5,72  say  "Location" 

@  6,72  to  6,79 

do  while  last_name  =  "AS  DEPT" 
if  loc  code  =  "S" 

@  llne.O  say  trim(cjmfg)*"  /  "  +  c_model 


@  line, 32  say  cemp_ser 
@  line,  50  say  come  +  "  -  "  +  cjpnum 
@  line, 72  say  "Tl-274)" 

line  =  line  +  2 
skip 

if  line  >  20  .and.  (last_name  *  lname; 

.and.  loc_code  *  "S") 

@  22,0  clear  to  22,79 

@22,9  say  "Additional  storage  property"*; 

"  on  file,  press  any  key  to  continue" 
wait"  " 

@7,0  clear  to  20,79 
@  22,0  clear  to  22,79 
line  =  7 
endif 


t.' 


E 


i 

I 


else 

skip 

endif 

if  last  name  <>  lname 
0  2f,0  clear  to  22,79 
@  22,4  say  "That  is  all"+; 

"  that  is  on  file,  press  any"+; 

"  key  to  continue,  or  EsC  to  exit" 
wait"  " 
endif 

enddo 

else 

@  22,0  clear  to  22,79 

@  22,12  say  "No  storage  components  on  file,"+; 

"  press  any  key  to  continue" 

wait"  " 
clear 
endif 
enddo 
endif 

if  code  *  "L" 

lname  =  "AS  DEPT" 
seek  lname 
if  found() 
line  =  7 

@3,4  say  "Custodians  " 

@  3/15  say  "AS  DEPT" 

@  5,2  say  "Mfg/Model" 

@  6,2  to  6,10 
@5,32  say  "Serial  #" 

@  6,32  to  6,39 

@5,50  say  "Ptype  &  number" 

@  6,50  to  6,63 
@5,72  say  "Location" 

@  6,72  to  6,79 

do  while  last_name  *  "AS  DEPT" 
if  loc  code  *  "L" 

@  Iine,0  say  trim(c_mfg)+"  /  "  +  c_model 
@  line, 32  say  comp_ser 
@  line, 50  say  c  Dtype  +  "  -  "  +  c_pnum 
@  line, 72  say  flrst_name 

line  =  line  +  2 
skip 

if  line  >  20  .and.  (last.name  *  lname; 

.and.  loc_code  =  "L") 

@  22,0  clear  to  22,79 
@  22,12  say  "Additional  lab  property"+f 

"  on  file,  press  any  key  to  continue" 
wait"  " 

@  7,0  clear  to  20,79 
@  22,0  clear  to  22,79 
line  *  7 
endif 
else 
skip 
endif 

if  lastname  <>  lname 
@  2?,0  clear  to  22,79 
@  22,4  say  "That  is  all"+; 

"  that  is  on  file,  press  any"+; 

"  key  to  continue,  or  ESC  to  exit" 
wait"  " 
clear 
endif 

enddo 


r  i*i 


@  22,0  clear  to  22,79 
@  22,15  say  "No  lab  components  on  file,1 
"  press  any  key  to  continue' 

wait"  " 
clear 
endif 
enddo 
endif 

else 

clear 

release  all 
close  databases 
return 

endif  ans  not  "  " 
ans  =  "  " 
enddo 

♦EOF  slocatio.prg 


25,  SOWNER.PRG 

’k'k’k'k'k’k&'k&Irklck-k'k’kjt'kJctrk 

* 


Program:  SOWNER.PRG  ********************** 


♦Author .  TIM  SEXTON 

♦Purpose . .  displays  custodian's  components  and  the 

location  of  the  component,  searches  on  last 

♦  . .  and  first  name 

♦Calls .  None 

♦Input/Output  Files. :  None 

clear 

set  confirm  off 
set  headings  off 

select  3 

use  homes  index  l_fnames 
select  2 

use  owners  index  names 
select  1 

use  comps  index  name_loc 

set  relation  to  last~name  +  first_name  into  owners 

finished  =  ,f. 
do  while  .not.  finished 
choice  ■  "  " 
mlname  *  spaced  15) 
mfname  =  space (15) 

1  ?'i8.s*Y  "S  OPPONENT  SEARCH  SCREEN" 
@1,0  to  1,79  double 
@  21,0  to  21,79 

@  22,27  say  "To  EXIT  leave  choice  blank" 


@  4,4  say  "Choose  a  search  for  one  of  the  following: 

@6,4  say  "  1.  Components  assigned  to  a  Custodian  " 

|  7,4  say  "  _  2.  Components  of  the  AS  DEPT  " 

@4,45  get  choice 
read 

do  case 

case  choice  =  "  " 
clear 

release  all 
close  databases 
return 


case  choice  *  "1" 

@  4,0  clear  to  7,79 
set  confirm  on 

<3  4,0  say  "Enter  custodian's" 

@6,6  say  "last  name:  "  get  mlname  PICTURE  "@!A" 

@22,0  clear  to  22,79 

@  22,13  say  "To  exit  leave  custodians  name  blank" 
read 

if  mlname  *  space (15) 
clear 

release  all 
close  databases 
return 
endif 

@  22,0  clear  to  22,79 

no_fname  =  .  t . 
do  while  no_fname 

@7,5  say  "first  name:  "  get  mfname  PICTURE  "@!A" 
read 

if  mfname  -  space (15) 

@  22,0  clear  to  22,79 

@  22,24  say  "Require  at  least  a  first  initial" 
delay  *  0 

do  while  delay  <  25 
delay  »  delay  +  1 
enddo 

@  22,0  clear  to  22,79 
else 

no_fname  *  .f. 
endif 
enddo 

set  confirm  off 
select  comps 
goto  top 
set  exact  off 

seek  mlname, mfname 

if  found( ) 

@  0,0  clear  to  0,79 
@4,0  clear  to  7,79 
@22,0  clear  to  22,79 
line  *  6 

@  0,25  say  "Custodian:  "  ♦  trim(ralname)  ♦  ",  "  +  mfname 
@  3,5  say  "Mfg  /  Model" 

@  4,5  to  4,15 
@  3,35  say  "Serial  #" 

@  4,35  to  4,42 
@3,52  say  "Location" 

@  4,52  to  4,59 

do  while  last.name  *  mlname  .and.  first.name  *  mfname 
@  line, 2  say  trim(cjnfg)  +  "  /  "  +  cjnodel 
@  line, 35  say  comp.ser 
do  case 

case  loc_code  *  "H" 
select  homes 
seek  mlname , mfname 

@  line, 52  say  trim(street)  ♦  "  +  city 

otherwise 

@  line, 52  say  owners->  location 

endcase 
select  1 
skip 

line  *  line  +  2 

if  line  >  20  .and.  (last_name  *  mlname  .and.; 


first_name  *  mfname) 


0  6,0  clear  to  24,79 
line  *  6 
endif 

if  last  name  <>  mlname  .and.  first  name  <>  mfname 
0  2f,0  clear  to  22,79 
@  22,12  say  "Nothing  further  on  file,"+; 

"  press  any  key  to  continue" 

wait"  " 
clear 
endif 

enddo 

else 

0  22,0  clear  to  22,79 
@  11,8  say,- 

"  Either  no  property  on  file  for  this  individual" 

@  12,8  say  "  OR" 

@  13,8  say,- 

"  The  name  entered  does  not  match  what  is  on  file" 

■> 

■> 

wait 

clear 

endif 

case  choice  *  "2" 

@  0,0  clear  to  0,79 
@  22,0  clear  to  22,79 
04,0  clear  to  7,79 
0  0,32  say  "AS  DEPT  PROPERTY" 

mlname  =  "AS  DEPT" 

select  comps 
goto  top 
set  exact  off 
seek  mlname 

if  found() 
line  *  6 

@  3,5  say  "Mfg  /  Model" 

0  4,5  to  4,15 
0  3,35  say  "Serial  #" 

0  4,35  to  4,42 
@  3,52  say  "Location" 

0  4,52  to  4,59 

do  while  last_name  *  "AS  DEPT" 

@  line, 2  say  trim(cjnfg)  ♦  "  /  "  ♦  cjnodel 
0  line, 3 5  say  comp  ser 

@  line, 52  say  owners->  location  +  first_name 
skip 

line  *  line  +  2 

if  line  >  20  .and.  last  name  *  "AS  DEPT" 

0  22,0  clear  to  22,7^ 

0  22,15  say  "Additional  property  on  file,"'*-; 

"  press  any  key  to  continue" 

wait"  " 
line  *  6 

@  22,0  clear  to  22,79 
0  6,0  clear  to  20,79 
endif 

if  last  name  <>  "AS  DEPT" 

0  2f,0  clear  to  22,79 
0  22,12  say  "Nothing  further  on  file,"+; 

"  press  any  key  to  continue" 

wait"  " 
clear 


endif 

enddo 

else 

0  22,0  clear  to  22,79 

9  22,12  say  "  No  property  on  file  for  the  AS  DEPT"*; 
"  press  any  key  to  continue" 

wait"  " 
clear 
endif 

otherwise 

(3  22,0  clear  to  22,79 

0  22,17  say  "Not  a  valid  selection,  please  re-enter  or" 
delay  =  0 

do  while  delay  <  25 
delay  *  delay  +  1 
enddo 

@  22,0  clear  to  22,79 

endcase 

enddo 

*  EOF  sowner.prg 


26.  SUM_RPT.PRG 

********************  Programs  SUM  RPT.PRG  ************** 

s  TIM  SEXTON 

prints  three  reports 

1.  components  grouped  by  property  type  and 
number 

2.  parts  assigned  to  components  grouped  by 
property  type  and  number 

3.  parts  that  are  not  assigne  to  components 
{stock)  grouped  by  property  type  and  number 
involves  creating  temporary  files  that  are 
erased  after  the  reports  are  printed 

. .  TEMPI. FRM,  PARTSTOK . FRM ,  PARTSUM.FRM, 

*  COMPS. DBF,  PARTS. DBF, OWNERS. DBF 

*Input/Output  Files.:  none 


*  This  program  will  join  the  owners  and  components  to  allow 

*  printing  the  summary  property  reports 

set  confirm  off 
set  exact  on 

clear 


select  1 
use  parts 

select  2 
use  owners 

select  3 
use  comps 

do  while  .t. 

0  0,20  say  "SUMMARY  REPORT  SCREEN" 

0  1,0  to  1,79  double 
0  21,0  to  21,79 

0  8,16  say  "***********  SET  UP  THE  PRINTER  ************ 

0  22,6  say  "Standby  while  the  files  are  joined  for  preparing"'**; 

"  the  property  reports" 


*Author . 
*Purpose 

* 

* 

* 

* 

* 

* 

* 


*******  temp  is  used  to  join  campus  owner  with  component  ******* 
select  comps 

join  with  owners  to  temp  for  loc_code  <>  "H"  .and.  owners->; 
location  <>  "HOME"  .and.  last.name  =  owners->last  name  .and.,- 
first_name  *  owners->first_name 

*******  temp2  is  used  to  join  home  owner  with  component  ******** 

join  with  owners  to  temp2  for  loc_code  =  "H"  .and.  owners->; 
location  =  "HOME"  .and.  last_name  =  owners->last  name  .and.; 
first_name  =  owners->first_name 

***************  temp2  is  then  appended  to  temp  ***************** 
**************  t emp  is  used  for  component  report  *************** 

select  4 
use  temp 

append  from  temp2 

index  on  c_ptype  +  c_pnum  to  temp 

**************  temp3  is  used  for  part  report  ****************** 
join  with  parts  to  temp3  for  comp_ser  *  parts->comp_ser 

select  5 
use  temp3 

index  on  p_ptype  +  p_pnum  to  temp3 
**************  parts  are  indexed  on  type  &  num  **************** 
select  parts 

index  on  p _ptype  +  p _pnum  to  type_num 
close  databases 

*  check  if  printer  is  set  up  or  allow  abandon  current  operation 

done  «  .f. 

ready  =  .f. 

do  while  .not.  ready 

@  8,0  clear  to  8,79 
@  22,0  clear  to  23,79 

@  22,22  say  "Is  the  printer  ready  for  printing?: 

@  23,22  say  "  [  Yes  /  No  /  Abandon  ]" 

ans  *  "  " 

do  while  .not.  ans  $  "yYnNaA" 
ans  =  "  " 

@  22,57  get  ans  picture  "OJA" 
read 
enddo 

@  22,0  clear  to  23,79 

*  if  not  ready  wait  and  loop 

if  upper (ans)  *  »n" 

@8,18  say  "Press  any  key  when  ready  to  ready  to  continue" 
wait  "  " 

@  8,0  clear  to  8,79 
endif 

if  upper(ans)  *  "A" 
ready  *  , t. 
done  *  .t. 
endif 

if  upper(ans)  ■  "Y" 
ready  =  .t. 
endif 

enddo  not  ready 
if  -not.  done 


clear 
select  1 

use  temp  index  temp 

****** *******  do  the  component  property  type  &  number  report 
report  form  tempi  to  print 

select  2 

use  temp3  index  temp3 

***********  do  the  part  property  report 

report  form  partsum  to  print 

select  3 

use  parts  index  type_num 
***********  do  the  stock  part  list 

report  form  partstok  to  print  for  comp_ser  *  space(lO) 

done  *  . t . 
endif  not  done 


if  done 

erase  temp.dbf 
erase  temp2.dbf 
erase  temp3.dbf 
erase  temp.ndx 
erase  temp3.ndx 
erase  type_num.ndx 

clear 

release  all 
close  databases 
return 

endif  done 
enddo 

*eof  sum_rpt.prg 


APPENDIX  C 
P\1S  USER'S  MANUAL 


I.  INTRODUCTION 

This  manual  is  designed  to  familiarize  and  serve  as  a  reference  for  the  Property 
Management  System  designed  specifically  for  the  Administrative  Science  Department. 
This  system  is  written  as  an  application  program  of  dBase  III  plus,  installed  on  an 
IBM  PC  XT  located  in  Ingersoll  230.  The  Property  Management  System  is  menu 
driven,  therefore  there  is  no  requirement  to  have  a  knowledge  of  dBase  III  plus. 
Additionally  there  is  no  real  requirement  for  users  to  have  a  familiarity  with  the 
operation  of  an  IBM  microcomputer. 

a.  Getting  Started 

The  first  step  in  getting  started  is  to  take  the  system  boot*up  disk  provided, 
inserting  it  into  the  floppy  drive,  then  turning  on  the  computer.  Turning  on  the 
computer  involves  flipping  the  toggle  switches  on  the  right  back  side  of  the  two  system 
units,  then  turning  the  top  switch  on  the  front  of  the  monitor.  The  printer  need  not  be 
activated  until  prompted.  If  the  system  is  tartcd  properly,  after  a  minute  or  so,  an 
initial  license  agreement  screen  for  dBase  III  should  appear.  At  this  point  depress  the 
return  key  and  commence  the  operation  of  the  Property  Management  System.  Your 
screen  should  appear  identical  to  that  of  Figure  C.l.  If  you're  ready  to  continue,  then 
as  the  screen  says,  press  any  key  to  continue. 

If  the  system  did  not  respond  exactly  as  stated,  or  you  receive  any  sort  of 
error  message  at  all,  then  it  is  likely  that  you  used  the  wrong  boot-up  disk,  or  there  is  a 
system  error.  Check  to  see  if  the  proper  boot-up  disk  was  used,  if  so  alert  the  problem 
to  the  attention  of  the  department  supervisor  for  follow  up  investigation. 

b.  Passwords 

After  accessing  the  Property  Management  System  your  screen  should  appear 
exactly  as  Figure  C.2,  prompting  you  for  your  password.  To  utilize  the  Property 
Management  System  you  must  have  an  authorized  password.  The  system  makes  use  of 
two  t\pes  of  passwords  to  restrict  the  access  to  the  system.  A  restricted  password 
allows  read-only  access,  which  permits  searching  the  existing  records  and  printing 
reports.  An  unrestricted  password  allows  you  to  enter,  delete,  or  modify  new  or 
existing  property  records. 


Property  Management  System 

The  Property  Management  System  Is  an  application  program  to 
aesiet  the  Admin  Science  Dept  in  maintaining  accountability 
for  departmental  property. 


Press  any  key  to  continue... 


Figure  C. I  Initial  PMS  Screen. 


ENTER  YOUR  PASSWORD: 

(or  press  return  to  quit) 


Figure  C.2  Passwords. 


You  will  note  that  the  characters  are  not  echoed  back  to  you  on  the  terminal 
as  you  type  them.  This  is  an  added  security  feature  and  not  a  defect  in  the  system. 
Should  you  incorrectly  enter  your  password,  or  the  password  is  not  valid,  you  will 
momentarily  see  an  error  message  on  the  screen.  After  the  error  message  simply  re¬ 
enter  your  correct  password.  There  is  no  limit  to  the  number  of  times  you  may  enter 
an  incorrect  password,  but  without  a  correct  entry  you  will  not  progress  past  this 
point. 

If  you  are  certain  you  have  correctly  entered  your  password  and  are  still  being 
denied  access,  then  you  must  verify  with  proper  authority  that  your  password  is  indeed 


valid.  To  exit  the  system  from  this  point,  depress  the  return  key  and  you  will  return  to 
MS  DOS.  Turning  the  computer  off  is  also  an  alternative  and  will  not  impair  'he 
program. 


Trying  to  access  restricted  operations  without  a  proper  password  will  cause  an 
error  message.  You  must  re-start  the  system  and  log  on  with  a  proper  password  to 
access  these  operations. 

2.  PROPERTY  MANAGEMENT  SYSTEM  OPERATIONS 

After  entering  a  correct  password  the  next  screen  you  will  sec  should  he  that  of 
Figure  C.3.  With  restricted  access  you  may  perform  either  of  the  First  two  listed 
operations.  You  may  also  make  use  of  the  on-line  help  facility  by  simply  tv  ping  II  . 
An  unrestricted  password  will  allow  you  to  perform  any  of  the  listed  operations  If  you 
choose  to  exit  the  system,  typing  a  "0"  will  terminate  the  Property  Management  Svsteni 
and  exit  you  to  MS  DOS,  and  the  computer  may  be  turned  off,  or  used  for  another 
application. 


1 


Property  Management  Main  Menu 

1 

1 

l  -  LISTS  or  SEARCHES 

! 

2  -  PRINT  REPORTS 

3  -  ENTER  new  property 

t 

4  -  DELETE  property 

i 

5  -  MODIFY  property 

i 

i 

H  -  HELP 

! 

t 

0  -  Exit  to  MS  DOS 

i 

l 

Figure  C.3  Main  Menu. 


a.  Help 

All  menus  throughout  the  entire  program  have  a  Help  option  as  one  of  the 
choices.  To  select  this  option  type  an  "1!"  as  your  selection.  Selecting  this  will  provide 
valuable  information  pertaining  to  the  choices  on  the  current  menu  screen.  Help  is 


automatically  exited  when  you  have  paged  through  all  the  information.  N'ou  may  exit 
prior  to  that  by  using  the  ESCape  key. 

b.  Lists  or  Searches 

If  you  desire  a  list  of  property,  a  sub-set  of  property,  or  to  search  for  a 
specific  item,  then  select  "1"  from  the  main  menu.  The  List  and  Searches  Menu  will 
next  be  displayed  on  your  screen  (Figure  C.4). 


Figure  C.4  List  and  Search  Menu. 


This  menu  displays  all  the  available  choices  under  this  category,  'i  ou  may 
make  any  selection  you  choose.  Typing  a  "0"  will  return  you  to  the  main  menu. 

/.  Components  Assigned  to  a  Custodian 

This  option  will  allow  you  to  search  for  components  by  assigned  custodian, 
or  components  with  the  AS  DEPT  as  custodian. 

Entering  a  "1”  for  custodian  search,  from  the  Component  Search  Screen 
(Figure  C.5),  you  will  be  prompted  for  last  name  of  the  custodian  of  interest. 

By  depressing  the  return  key,  you  return  to  the  List  and  Search  Menu.  To 
perform  a  search  by  custodian  the  name  must  be  entered  as  kept  on  file.  (If  you  have 
some  doubt  about  this,  use  the  Custodian  Listing  option  from  the  List  and  Search 
Menu). 


Entering  a  "2"  for  AS  DEPT  component  search,  from  the  Component 
Search  Screen  (Figure  C.5),  will  immediately  provide  you  with  a  list  of  components 
sorted  by  location  that  the  AS  DEPT  maintains  direct  responsibility  (lab  and  storage 


property). 

2.  Components  assigned  by  Locations 

Selecting  "2"  from  the  List  and  Search  Menu  (Figure  C.4),  allows  sou  the 
option  of  selecting  a  list  of  all  components  by  their  physical  locations  by  making  a 
selection  from  the  menu  choices  of  Home  or  Office,  Storage,  or  Lab. 

J.  Custodian  Listing 

This  selection  provides  a  listing  of  all  custodians  and  the  locations  that  they 
have  property  on  file:  either  their  ofTice  or  home  address.  Figure  C.6  shows  a  sample 
output  screen  of  this  selection. 

This  selection  is  useful  to  verify  that  a  custodian  owns  propert;.  and  to  sec 
the  way  their  name  is  kept  on  file.  The  names  arc  shown  a  screen  at  a  time 
alphabetically.  Follow  the  prompts  at  the  bottom  of  the  screen  to  continue  through 
the  listings,  or  to  exit  and  return  to  the  Listing  and  Searches  Menu. 
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figure  C.7  Mfg  Search  Screen. 


/.  Quarterly  Report 

This  report  is  a  three  part  report  used  for  verification  of  the  status  of  the 
property  on  file. 

1.  The  component  report  -  this  will  give  a  listing  of  all  components  sorted  by 
custodian.  It  will  provide  the  mfg,  model,  description,  mfg  serial  <  and  the 
location  of  each  component. 

2.  The  part  to  component  report  -  this  will  give  a  listing  of  ail  parts  assigned  to  a 
component  sorted  by  custodian  and  location.  It  will  provide  the  model. serial  U, 
and  description  of  each  part  assigned  to  a  particular  component. 

3.  The  stock  part  report  •  this  will  provide  a  list  of  all  parts  in  stock  that  have  not 
been  assigned  to  a  component. 

Figure  C.8  shows  the  screen  after  selecting  the  Quarterly  Reports  option. 
You  will  be  prompted  to  turn  on  the  printer  as  the  files  are  being  combined  to  print 
the  report.  Once  the  files  are  ready  you  will  be  asked  if  the  printer  is  ready,  answer  the 
appropriate  response  to  the  question  at  the  bottom  of  the  screen.  If  you  are  not  ready 
the  system  will  wait  until  you  are,  or  you  decide  to  abandon  the  report. 


*  NOTE:  You  can  exit  the  Quarterly  Report  selection  at  any  time  as  long  as  the 
system  is  not  told  the  printer  is  ready  and  it  really  is  not.  T  his  may  cause  a 
lock  up,  and  you  will  have  to  re-start  the  program,  no  damage  should  occur  by 


QUARTERLY  REPORT  SCREEN 


***********  SET  UP  THE  PRINTER  *********** 


Standby  while  the  files  are  Joined  for  preparing  reports 
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Figure  C.8  Quarterly  Report  Screen. 

shutting  ofT  the  computer  but  it  is  recommended  that  you  avoid  this  if  at  all 
possible.  To  exit  without  completion  of  the  report,  type  "ESCapc".  this  will 
abandon  the  reports  and  return  you  to  the  Reports  Menu. 

2.  Property  Summary  Report 

The  Property  Summary  report  is  also  a  three  part  report,  t  hese  reports  are 
to  be  used  for  inventory  purposes  to  maintain  accountability  of  department  property, 
providing  a  listing  of  property  on  file  sorted  by  Property  Type  and  Property  Numbers. 

1.  The  component  report  -  this  will  give  a  listing  of  all  components  sorted  by 
property  type  and  number.  It  will  provide  the  mfg,  model,  mlg  serial  a, 
custodian  and  the  location  of  each  component. 

2.  The  part  to  component  report  -  this  will  give  a  listing  of  all  parts  assigned  to  a 
component  sorted  by  property  type  and  number.  It  will  furnish  the  model, 
description,  custodian,  and  location  of  each  part  assigned  to  a  particular 
component. 

3.  The  stock  part  report  -  this  will  provide  a  list  of  all  parts  in  stock  that  have  not 
been  assigned  to  a  component,  sorted  by  property  type  and  number. 

The  procedure  for  printing  the  Property  Summary  report  is  the  same  as 
that  of  the  Quarterly  report.  See  the  directions  in  that  section  if  you  have  any  doubt  in 
generating  these  reports. 


38 


d.  Enter  New  Property 

Property  is  entered  as  a  part  or  a  component.  These  are  the  two  selections 
available  from  the  Enter  Property  Menu.  Parts  are  items  such  as  cards,  boards  or  hard 
disks  that  are  used  in  components. 

/.  Component  Entry 

Figure  C.9  shows  a  typical  component  entry.  Enter  the  appropriate 
information  as  the  fields  appear.  Once  a  field  entry  is  made  you  may  need  to  depress 
the  return  key  to  progress  to  the  next  entry.  The  designated  use  and  property  type 
fields  are  the  exceptions.  These  require  only  entering  the  first  letter  of  the  choices 
displayed.  After  all  entries  are  made  you  will  be  given  the  opportunity  to  correct 
mistakes.  It  is  important  that  you  review  each  field  to  ensure  they  arc  correct.  Once 
you  tell  the  system  that  the  entries  are  correct,  this  component  is  placed  on  fie.  If  for 
some  reason  an  improper  component  record  is  placed  on  file  you  may  use  the  modify 
or  delete  selections  from  the  Main  Menu  to  correct  or  delete  the  entry. 
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Enter  Component 

Information : 

date : 06/26/87 

mfg 

IBM 

model 

PC  XT 

serial  »• 

123456789012345 

description 

256X  MAIN  MEMORY  WITH  TWO 

FLOPPY  DRIVES 

designated  use 
Custodian 

0  (Office  /  Lab  /  Storage 

/  Home) 

last  name 

BUI 

first  name 

TUNG 

office 

(1-316) 

property  type 

P  (Plant  /  Minor  /  Other) 

property  # 

1234567899 

price 

S  1,234.00 

reqn  » 

7 123-7 199/R7SC 1 

la  the  above  information  correct?: 

[  Yes  /  No  /  Abandon  ] 

i _ i 


Figure  C.9  Component  Entry  Screen. 


Several  of  the  fields  are  required  entries.  Mfg  is  required  or  you  will  return 
to  the  Enter  Property  Menu.  Other  required  entries  arc  serial  #,  designated  use.  and 


the  property  type.  Dependent  upon  choices  associated  with  these  entries,  several  other 
entries  may  be  required. 

The  serial  #  field  is  for  the  mfg  serial  #,  this  is  a  very  important  and 
required  entry.  Care  must  be  taken  when  entering  the  serial  #  since  this  is  the  field 
that  maintains  a  components  identity,  making  it  unique.  Ensure  this  entry  is  correct. 

There  are  four  categories  of  component  use.  Storage  components  are 
assigned  to  the  AS  DEPT  and  will  require  no  further  related  entries.  Lab  components 
are  also  assigned  to  the  AS  DEPT,  and  you  are  required  to  choose  one  of  the  four 
department  lab  locations.  Office  and  Home  use  are  used  for  custodian  assignments. 
You  will  be  required  to  enter  the  custodians  last  name,  and  if  the  custodian  is  on  file 
you  will  need  not  enter  any  further  custodian  information.  If  they  are  not  on  file  then 
you  will  be  required  to  enter  a  first  name  and  the  appropriate  location  information.  To 
take  care  of  the  situation  of  two  custodians  with  the  same  last  name,  you  will  be 
requested  to  verify  the  custodian  that  is  on  file.  This  should  also  prevent  entering  a 
custodian  twice  with  two  different  variations  of  their  name.  Remember  however  that  it 
is  possible  to  have  two  custodians  with  the  same  last  name.  No  exception  is  made  for 
two  custodians  with  the  same  last  and  first  names,  if  this  situation  ever  occurs  the  only 
way  to  distinguish  them  will  be  on  location. 

There  are  three  property  type  classifications.  "P"  is  for  plant  property,  "M" 
is  for  minor  property,  and  "O”  is  for  other  than  plant  or  minor  property.  Plant  and 
Minor  property  will  require  an  associated  property  number.  This  is  also  an  important 
field,  which  will  provide  the  accountability  of  the  department  property  within  NPS 
guidelines.  Care  should  be  taken  when  entering  this  field. 

*  NOTE:  If  the  situation  ever  arises  that  you  do  not  know  the  proper 
information  for  a  required  field  entry,  do  not  worry.  Simply  enter  any  accepted 
entry’,  and  abandon  the  entry  when  you  reach  the  point  in  Figure  C.9.  On  the 
other  hand,  if  an  incorrect  choice  was  made  at  some  point,  you  may  make  the 
appropriate  corrections  instead  of  abandoning  the  entry.  Care  should  be  taken 
never  to  file  a  false  or  incorrect  record. 

2.  Part  Entry 

Figure  C.10  shows  a  typical  part  entry.  As  with  the  component  entry  the 
entering  procedures  are  the  same.  To  enter  a  part,  you  first  enter  the  model  which  is 
required,  then  the  part  serial  #  and  description,  both  are  optional.  At  this  point  you  are 
asked  if  this  part  is  for  stock  or  to  be  used  in  a  component.  Stock  entries  are  assigned 


to  the  AS  DEPT  and  require  no  related  entries.  A -part  assigned  to  a  component  will 
require  that  the  component  serial  #  be  entered.  These  two  entries  are  required. 
Property  type  is  aho  a  required  entry.  Plant  and  Minor  property  will  a  ho  ic^unc  a 
property  number.  Price  and  reqn  #  are  optional  entries. 


Figure  C.10  Part  Entry  Screen. 

*  NOTE:  It  is  important  that  the  component  serial  H  is  accurate.  A  search  of  all 
components  on  file  will  let  you  know  if  this  component  is  not  on  lilc  It  int  on 
file  and  the  serial  U  is  correct  you  must  enter  the  component  first.  If  sou 
entered  it  incorrectly  you  will  be  allowed  to  re-enter  it. 

e.  Delete  Property 

To  delete  property  select  this  option  from  the  Main  Menu.  This  will  display 
the  Delete  Property  Menu,  you  may  delete  either  a  part  or  a  component. 

I.  Component  Deletion 

To  delete  a  component  you  must  know  the  component  serial  Fn'er  the 
proper  serial  H  and  you  will  be  shown  the  component  on  file  with  this  serial  *  <  Figure 
C.  11).  You  must  verify  that  this  is  the  correct  component.  If  it  is  not  then  check  the 
serial  #.  no  two  components  should  have  the  same  serial  #.  If  the  component  is 
correct  then  the  files  are  checked  to  see  if  parts  are  on  file  for  this  component. 
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ENT  D  E  L  E  T 

ION  S  C  R  E 

E  N 

date : 

06/26/87 

Enter  Component 

serial  * : 

123456789012345 

mfg : 

IBM 

model : 

PC  XT 

description: 

256K  MAIN  MEMORY 

WITH  TWO  FLOPPY 

DRIVES 

property  type: 

Plant 

property  # : 

1234567890 
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PART(S)  are  on  file  for  this  component: 

Model 

Property  Type 

Property  * 

CARD 

0 

Do  you  wish  to  delete 

the  PART ( S ) ? : 

t  Yea  /  No 

1 

figure  C.ll  Component  Deletion  Screen. 

If  parts  arc  on  file  for  this  component,  you  cannot  delete  this  component  if 
you  do  not  wish  to  delete  the  parts.  You  will  have  to  reassign  the  parts  using  the 
modify  selection  from  the  Main  Menu.  If  there  are  no  parts,  or  you  want  to  delete  the 
parts  as  well,  then  answer  yes  when  you  are  questioned  if  you  wish  to  delete  this 
component.  Be  careful  when  deleting  components  and  parts,  once  deleted  there  is  no 
means  of  recovering  this  information. 

2.  Part  Deletion 

Since  parts  can  be  assigned  to  stock  or  to  a  component,  to  delete  a  part 
you  must  k&ow  how  a  part  is  being  used  to  delete  it.  A  component  part  requires  that 
you  know  the  serial  #  of  that  component.  Enter  the  component  serial  a.  like  a 
component  deletion  the  files  are  searched  to  see  if  this  component  is  on  lilc.  You  will 
have  to  verify  that  the  component  is  correct  to  continue. 

If  the  component  is  found  or  if  this  is  a  stock  part,  you  are  then  asked  to 
fill  in  if  known:  the  part  model,  part  serial  #,  part  property  type,  or  part  property 
number.  If  you  do  not  know  the  proper  information  depress  the  return  key. 
Depending  on  the  information  provided  a  list  of  parts  will  be  displayed  for  you  one  at 
a  time  to  determine  if  it  is  the  correct  part  or  not  (Figure  C.12). 
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Figure  C.12  Part  Deletion  Screen. 


If  no  parts  are  found  meeting  these  constraints  then  a  message  will  tell  you 
that  your  part  cannot  be  found  and  may  not  be  on  file.  Check  the  property  reports  to 
see  if  your  part  information  is  indeed  correct,  if  so  the  part  probably  was  previously 
deleted. 


f.  Modify  Property 

To  modify  a  property  record  (either  part  or  component),  select  this  option 
from  the  Main  Menu.  A  menu  screen  will  appear  for  you  to  choose  from  the  available 
options  (Figure  C.I3).  The  selections  arc  explained  under  the  next  3  sub-sections. 


Component  records  have  two  difFcrent  modify  operations.  If  you  wish  to 
reassign  a  component  to  a  new  custodian  or  location  select  option  "1".  To  modify  the 
other  than  assignment  fields,  such  as  price  or  property  number,  choose  selection  "2”. 
The  modify  record  option  will  be  used  to  correct  mistakes  after  entry.  There  is  only- 
one  modify  option  for  parts,  which  allows  reassigning  the  part  or  changing  all  fields. 


I.  Modify  Component  Custodian  or  Location 

Selecting  this  option  from  the  Modify  Menu  you  must  enter  the  component 
serial  H  or  return  to  the  Modify  Menu.  If  the  component  is  on  file  you  will  be  asked  if 
this  is  the  correct  component  (Figure  C.14). 
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Figure  C.l  3  Modify  Property  Screen. 
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date : 06/27/07 

mfg 

IBM 

model 

PC  XT 

eerial  » 

123456789012345 

description 

256K  MAIN  MEMORY  WITH  TWO 

FLOPPY 

DRIVES 

property  type 

Plant 

property  « 

1234567890 

designated  use 

Office 

Custodian : 

BUI,  TUNG 

office : 

(1-316) 

Is  this  the  correct  component?: 

[  Yee  /  No  ) 

Figure  C.14  Modify  Component  Assignment  Screen. 

If  this  is  the  correct  component  you  may  then  modify  the  designated  use 
and  reassign  the  component  to  a  new  custodian,  location,  or  both.  Figure  C 15  is  a 
sample  reassignment. 
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figure  C.  1 5  Sample  Component  Reassignment. 

If  the  modifications  are  correct  then  you  may  file  this  component  record 
with  the  new  changes.  If  you  made  a  mistake  you  may  try  again  or  abandon  the 
modifications  with  no  changes  having  been  made. 

2.  Modify  Component  Record 

Selecting  this  option  from  the  Modify  Menu  you  must  enter  the  component 
serial  U  or  return  to  the  Modify  Menu.  If  the  component  is  on  file  you  will  be  asked  if 
this  is  the  correct  component.  Figure  C.16  is  a  representative  display  screen  and  will 
be  used  as  an  example  for  this  section. 

If  this  is  the  correct  component  you  may  then  modify  the  fields  not 

associated  to  the  designated  use,  custodian,  or  location.  Figure  C.17  is  ,i  sample 

modification,  note  the  difference  in  the  component  description.  Each  Held  that 
modifications  are  allowed,  will  be  displayed  one  at  a  time  with  the  original  information. 
Make  the  required  changes  or  hit  the  return  key  to  leave  the  original  entry  as  is. 

If  the  modifications  are  correct  then  you  may  file  this  component  record 

with  the  new  changes.  If  you  made  a  mistake  you  may  try  again  or  abandon  the 

modifications  with  no  changes  having  been  made. 
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MODIFY  COMPONENT  SCREEN 


date : 06/27/87 

Custodian 

BUI ,  TUNG 

designated  use 

Office 

mfg 

IBM 

model 

PC  XT 

serial  a 

123456789012345 

description 

256K  MAIN  MEMORY  WITH  TWO  FLOPPY  DRIVES 

property  type 

Plant 

property  * 

1234567890 

price 

$  1234.00 

reqn  • 

7123-7199/R7SC1 

Is  this  the  correct  component?: 

[  Yes  /  No  ] 

Figure  C.16  Modify  Component  Screen. 
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PC  XT 
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123456769012345 

description 

640K  MAIN  MEMORY,  10MB  HARD  DISK 

property  type 

P  (Plant  /  Minor  /  Other) 

property  * 

1234567890 

price 

$  1,234.00 

reqn  * 

7123-7199/R7SC1 

> 

*1 

• 

the  modifications  correct?: 

(  Yes  /  No  /  Abandon] 

Figure  C.17  Sample  Component  Modification. 


J.  Modify  Part  Accountability  or  Record 

Parts  are  assigned  usage  to  stock  or  to  components.  If  this  is  known  then 
enter  the  appropriate  entry.  To  allow  for  the  occasion  when  this  is  not  known,  such  as 
a  mistaken  entry,  an  additional  option  is  given  for  part  modifications.  1  figure  CMS 
displays  the  initial  Modify  Part  Screen. 


Figure  C.18  Modify  Part  Screen. 


If  the  part  is  assigned  a  component  then  you  are  asked  to  enter  the 
component  serial  If  the  component  is  found,  or  if  this  is  a  stock  part,  or  if  the 
usage  is  not  known,  you  are  then  asked  to  fill  in  if  known:  the  part  model,  part  serial 
part  property  type  or  part  property  number.  If  you  do  not  know  the  proper 
information  enter  a  return.  Depending  on  the  information  provided,  a  list  ol  pails  will 
be  displayed  for  you  one  at  a  time  to  determine  if  this  is  the  correct  part  or  not  1 1  igure 
C.ld). 

If  this  is  the  correct  part,  you  may  then  make  the  required  chances.  Fach 
field  is  presented  to  you,  one  at  a  time,  with  the  original  entry.  Make  the  appiopnatc 
modifications,  or  hit  the  enter  key  to  leave  the  entry  unchanged.  Once  all  the  fields 
have  been  presented  you  must  reply  that  they  are  correct.  If  the  changes  are  not 
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Only  one  part  on  file: 

date: 06/27/87 

model : 

CARD 
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eerlal  » : 
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description : 

640K  MAIN  MEMORY.  10MB 

HARD  DISK 

la 

thia  the  correct  part?: 

[  Yea  /  No  ] 

figure  C.19  Sample  Part  Modification. 


correct  then  you  can  rc-edit  them  or  abandon  the  modifications  leaving  the  original 
part  record  as  first  entered.  No  changes  will  be  filed  until  you  wish  to  file  them. 


3.  SPECIAL  OPERATIONS 

This  section  will  cover  operations  not  covered  in  the  previous  sections.  The 
operations  covered  in  this  section  will  help  maintain  the  system,  and  provide  for  case  of 
use. 


a.  General  Editing 

Normally  the  keyboard  is  in  the  overwrite  mode.  You  may  depress  the  IN'Scrt 
key  to  allow  inserting  characters  if  you  wish.  Y'ou  must  be  careful  when  using  the 
backspace  or  arrow  keys,  it  is  possible  to  find  yourself  outside  of  the  entry  field.  This 
really  does  not  cause  a  problem,  but  may  be  a  little  inconvenient,  requiring  you  to 
circle  around  to  that  field  again.  There  is  no  reason  to  use  the  Pg  Lp  or  I’g  Dn  keys, 
these  will  definitely  take  you  outside  the  field  of  interest.  The  only  exception  to  these 
problems  are  when  you  are  forced  to  make  a  selected  entry  (eg.  Yes  /  No). 
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b.  ESCape 

This  key  allows  you  to  return  to  a  previous  menu  in  many  instances.  Do  not 
to  use  this  key  if  you  are  not  given  the  option  to  do  so.  Using  this  key 
indiscriminantiy  may  leave  files  open,  possibly  causing  errors.  Using  ESCape  when  not 
an  option  may  also  cause  you  to  use  the  enter  key  when  not  normally  required. 

c.  Printing 

Printing  is  normally  accomplished  with  the  Print  Reports  option  from  the 
Main  Menu.  Ensure  there  is  paper  in  the  printer  and  that  the  printer  is  turned  on.  It 
is  possible  to  get  a  printing  of  a  particular  screen  by  depressing  the  shift  key  and  PrtSc 
key  simultaneously.  Avoid  doing  this  if  the  printer  is  not  set  up  for  printing. 

d.  Backups 

No  system  is  infallible,  therefore  a  system  backup  is  to  be  maintained  by  the 
department  supervisor.  Additionally  the  files  must  be  backed  up  so  that  the 
information  need  not  be  re-entered  if  there  is  some  sort  of  failure.  The  data  files  will 
be  copied  automatically  if  the  system  is  exited  normally  from  the  Main  Menu.  The 
entire  application  cannot  be  copied  onto  a  single  disk,  so  the  database  (dbf)  files  will 
only  be  copied.  In  case  of  a  loss  of  database  files,  the  supervisor  will  see  to  it  that  a 
knowledgeable  dBase  III  plus  programmer  re-create  the  system  to  normal  operation. 

e.  Exiting 

To  exit  any  menu  enter  a  "0".  this  will  return  you  to  the  calling  menu.  At  the 
Main  Menu  this  will  return  you  to  the  microcomputer  operating  system  (MS  DOS) 
after  making  copies  of  the  database  files  (the  system  boot-up  disk  must  be  in  the 
floppy  drive).  This  is  the  normal  procedure  for  system  exiting,  you  should  not  turn  off 
the  computer  until  returned  to  the  MS  DOS  prompt:  C  > . 
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